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