Select Code to Download

sub shuffle (@) {
  my @a=\(@_);
...
    (${$a[$n]}, $a[$n] = $a[$i])[0];
  } @_;
}

N = 1000
    Rate   rp   lu   ta
...
ta 0.144/s    --  -92%  -93%
lu  1.75/s 1118%    --  -13%
rp  2.01/s 1302%   15%    --