@arr [@arr - $o .. $#arr, 0 .. $#arr - $o]

##</code><code>##

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

or:

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