Select Code to Download

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

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