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