#!/usr/bin/perl

use strict;
use warnings;

my @arr = qw /Fred Mark Joe Mary Paul/;

local $, = " ";
for (my $o = 0; $o < @arr; $o ++) {
    print "$o:", @arr [$#arr - $o + 1 .. $#arr, 0 .. $#arr - $o], "\n";
}
__END__

0: Fred Mark Joe Mary Paul 
1: Paul Fred Mark Joe Mary 
2: Mary Paul Fred Mark Joe 
3: Joe Mary Paul Fred Mark 
4: Mark Joe Mary Paul Fred