Help for this page

Select Code to Download

Select or download this

use Benchmark qw(:all) ;

...
                     return $found;
                  },
                 });

Select or download this

Benchmark: timing 20 iterations of for, hash...
       for: 16 wallclock secs (15.67 usr +  0.00 sys = 15.67 CPU) @  1
+.28/s (n=20)
...
       Rate  for hash
for  1.28/s   -- -45%
hash 2.32/s  82%   --