Not really golf, just having fun (requires Math::Matrix):

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