use DB_File;
my %database;
tie %database, 'DB_File', "bar" or die "Can't tie: $!";