sub s2a {map{join'',@$_}@{+Math::Matrix::transpose[map[split''],@_]}}