@z=map{$_.$d[-1+push@d,shift@d]}@z;

##</code><code>##

map{$_.=$d[-1+push@d,shift@d]}@z;