($a=rand $_-1),@values[$_,$a] = @values[$a,$_] for (reverse 1..$#values);