@arr [map $_ % @arr, @arr - $o .. @arr - $o + $#arr]

or:

my $p = @arr - $o; @arr [map $p++ % @arr, @arr]