foreach (@array_1) { print "$array_2[0] maps to $_\n"; push(@array_2, shift @array_2); }