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