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