my @array=(qw/ Fred Mark Joe Mary Paul /);
my $offset=0;
my $loop=0;
while ($loop < 10){ # loop is just to increment the offset value

# main loop below
 for (my $i=0;$i<scalar @array;$i++){
   my $r = $i + $offset;
   if ($r > scalar @array-1){
     $r = $r - (scalar @array);
   }
   print @array[$r];
 }

 $offset++;
 $offset=($offset>(scalar @array -1)?0:$offset;
 $loop++;
}