Each char / letter --> array from string value

[Umesh T G]

Hi List,

I need to put each letter from a string to an array.
I am doing it this way and it works. I wanna know if there is any other
better way to do this / a built-in function.

#! /usr/bin/perl
$srt ="123";
$sl = length $srt;
$val= join (':', split(/ */, $srt) );
@arr = split(/:/,$val);
    foreach $i (@arr) {
       print $i."\n";
    }

This gives me
1
2
3

This works fine for me.
I want an alternative solution, if any.

TIA,

Cheers,
Umesh.