http://qs321.pair.com?node_id=264581


in reply to Appending strings from one array onto strings of another

And here are my 2 Euro-Cent
@z=map{$_.$d[-1+push@d,shift@d]}@z;
Update: One can use a side-effect and avoid the assignment of an array:
map{$_.=$d[-1+push@d,shift@d]}@z;