Select Code to Download

#!/usr/bin/perl -w

...

timethese (100000, { hash => 'by_hash',
          var => 'by_var'});

[13:20:12 jhorner@gateway lib]$ ./test1.pl 
Benchmark: timing 100000 iterations of hash, var...
      hash:  5 wallclock secs ( 4.57 usr +  0.00 sys =  4.57 CPU) @ 21
+881.84/s (n=100000)
       var:  4 wallclock secs ( 3.74 usr +  0.00 sys =  3.74 CPU) @ 26
+737.97/s (n=100000)
[13:20:24 jhorner@gateway lib]$