In a DBM File 

use SDBM_File;

tie(my %town, 'SDBM_File', $file, O_RDWR|O_CREAT, 0666)
    or die "Couldn't tie SDBM file '$filename': $!";

# Retrieve a value:

my $name = $town{$id};