Select Code to Download

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

#!/usr/bin/perl

...
cmpthese -60, { map { $_ => "$_ 1..1000" } qw/naive listutil/ };

__END__

C:\temp>perl lus.pl
          Rate    naive listutil
naive    588/s       --     -14%
listutil 684/s      16%       --