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