push @x,substr($i,$_,1) for(0 .. length $i);

##</code><code>##

@x = map{substr($i,$_,1)}0 .. length $i;