use List::Util qw(sum);

my @count = (0) x 20;
for (1 .. 200000) {
    my @orderedRands = (grep{ rand(1) < 0.075 } map{ ($_) x 20 } 1 .. 20 )[0..19];
    $count[$_]++ for grep {defined} @orderedRands;
}

my $sum = sum(@count);
print "$_\t=>\t$count[$_]\t(", sprintf('%.2f', ($count[$_]/$sum)*100), "% TTL)\n" for 1 .. 20;