Select Code to Download

my $shift = rand $#array;
@array = map { $array[ ($_ + $shift) % @array ]} 0..$#array;

my $shift = rand $#array;

...
    my @middle = splice @array, $middle, 1;
    @array = @middle, map { $array[ ($_ + $shift) % @array} reverse 0.
+.$#array;
};