#!perl # Name: Traverse hash with foreach (sort keys %hash) # Require: 4 # Desc: # require 'benchlib.pl'; $i = "abc"; for (1..70) { $hash{$i} = $j++; $i++; } #print "keys %hash = ", int(keys %hash), "\n"; &runtest(0.75, <<'ENDTEST'); foreach $k (sort keys %hash) { $v = $hash{$k}; # } ENDTEST