Select Code to Download

#! perl -slw
use strict;
...
++$counts{ int( rand $L ) } for 1 .. $N;

pp \%counts;

C:\test>junk77 -L=5 -N=1e7
{ "0" => 1999935, 1 => 2000440, 2 => 1999682, 3 => 2001882, 4 => 19980
+61 }
...
}