my @what = qw( bothChaff bothDegen oneChaff oneDegen );

open my $fh, ">", "data.data" or die;

for ( 10000000 .. 99999999 )
{
    next if rand(10) > 6.7;
    print $fh sprintf("11010%d\t11010%d\t%s\n",
                      $_, $_+3333, $what[rand@what]);
    last if -s $fh > 1_000 * 1_000 * 1_000;
}

##</code><code>##

use DB_File;
use strict;
use Time::HiRes qw[ time ];

my $start = time;

my %A;
tie %A, "DB_File", "db.file", O_CREAT|O_RDWR, 0666, $DB_HASH or die;
if ( $ARGV[0] eq "build" )
{
    open my $fh, "<", "data.data" or die;

    while (<$fh>)
    {
        chomp;
        my ( $key, $val ) = split /\s+/, $_, 2;
        $A{$key} = $val;
    }
}
else
{
    print $A{$ARGV[0]} || "nothing found", $/;
    printf "Took %.2f seconds\n", time() - $start;
}
--
moo@cow[331]~/bin>pm-768941 1101078637800
1101078641133   oneChaff
Took 0.02 seconds