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