my @array=qw/ Fred Mark Joe Mary Paul /;
my $offset=2;
for (0..$#array) { print $array[$offset++ % @array], "\n" }