@array[-$i,$j] = @array[$j,-$i] while $j = rand(@array - $i), ++$i < @array;