Select Code to Download

sub fisher_yates_shuffle {
    my $array = shift;
...
        @$array[$i,$j] = @$array[$j,$i];
    }
}

1st mil: 50m 11s
2nd mil:  2m 13s
3rd mil:      7s
...
40th mil:     2s