Select Code to Download

#!/usr/bin/perl
use strict;
...
printf "time=%.3f\n", ($t[1]-$t[0]);

exit;

perl tmp.pl keys 10000 >  log
perl tmp.pl each 10000 >> log
...
perl tmp.pl each 1000000 >> log
perl tmp.pl keys 2000000 >> log
perl tmp.pl each 2000000 >> log

###count=10000,keys###
before: size=10035200,vsize=10035200,resident=5500928,share=5143114,rs
+s=5500928
...
after hash: size=582557696,vsize=582557696,resident=359972864,share=51
+43114,rss=359972864
after loop: size=583606272,vsize=583606272,resident=352419840,share=51
+43114,rss=352419840
time=268.264

#!/usr/bin/perl
use strict;
...
        }
    )
);

Benchmark: timing 100 iterations of with each, with keys...
 with each:  0 wallclock secs ( 0.00 usr +  0.00 sys =  0.00 CPU)
...
                          Rate with each with keys
with each 100000000000000000/s        --        0%
with keys 100000000000000000/s        0%        --