Select Code to Download

#! /usr/bin/perl
use strict;
...
}
$ttl = time - $start;
print "Hash search took $ttl seconds, found $cnt_hash\n";

$ ./foo.pl
Array search took 33 seconds, found 9534
Hash search took 0 seconds, found 9426

$ ./foo.pl
Array search took 3258 seconds, found 955277
Hash search took 16 seconds, found 954543