If you allow me my favorite tool, then I can do it in 31 characters and I don't need to use the awful $& and I don't require that the strings be the same length:

use mapcar;
sub s2a{mapcar{join"",@_}map[/(.)/g],@_}
[download]

        - tye (but my friends call me "Tye")