foreach (@array_1) { print "$array_2[0] maps to $_\n"; push(@array_2, shift @array_2); } [download]
In reply to Re^2: Implementing a cyclic array by perlpal in thread Implementing a cyclic array by perlpal