# 33 chars sub s2a{map{$l[-1+pos].=$&while/./g}@_;@l}