Select Code to Download

use strict;
use warnings;
...
bench( "   db", \&db_hash    );
bench( "  sql", \&sql_hash   );

$ perl test.pl
plain duration : 0.639 secs
...
  sql duration : 184.338 secs
  sql lookups  : 35532 / sec