Select Code to Download

#!/usr/bin/perl                             
#                                           
...
                                            
print "random samples:\n";                  
print $$_[1] for sort { $$a[0] <=> $$b[0] }  @samples;

$ perl -e 'print "$_\n" for 1 .. 1000000' >a_million_lines

...
719979
842687
998139