my $db = DBM::Deep->new( $filename );

print "$db->{32}\n"; # prints 14456