Select Code to Download

c:\test>p1
[0] Perl> 
...

[0] Perl> print total_size \@a;;
518218064

c:\test>p1
[0] Perl> sub shuffle { 
...

[0] Perl> $t = time; shuffle \$a; print time - $t;;
59.6950001716614