Select Code to Download

#!/usr/bin/perl

...

my $count = scalar keys %hash;
print commas($count), " elements: ", commas(total_size\%hash), " bytes
+\n";

1 elements: 176 bytes
10 elements: 1,171 bytes
...
10,000 elements: 1,135,573 bytes
100,000 elements: 11,224,325 bytes
1,000,000 elements: 111,194,341 bytes

$"=$,,$_=q>|\p4<6 8p<M/_|<('=>
.q>.<4-KI<l|2$<6%s!<qn#F<>;$,
.=pack'N*',"@{[unpack'C*',$_]
}"for split/</;$_=$,,y[A-Z a-z]
         {}cd;print lc