Select Code to Download

    foreach my $k (keys %h){
    }

    foreach my $k (keys %h){
        my $v=$h{$k};
    }

case 10000
hash ready ... count=10000
...
test_each   3.91       46%        --
----------------------------------------
Sat Nov 12 01:21:49 2011

$./025-6.pl -M1=keys -M2=pairs -N=1e6
hash built, starting timer
...
$./025-6.pl -M1=each -M2=pairs -N=1e6
hash built, starting timer
Took 2.434757 and 1.000MB extra memory for 1000000 using each/pairs me
+thod