perl -wE'for (1..20) { $hash{$_}++; say scalar %hash; }' 1/8 2/8 3/8 3/8 4/8 5/8 6/8 7/16 8/16 9/16 10/16 10/16 10/16 11/16 11/16 14/32 14/32 15/32 15/32 15/32