Good enough approximation 

• Replace this:

my $i = int( rand(100) );

• With this:

my $i = int( rand(20) + rand(20) + rand(20) + rand(20) + rand(20) );