use DB_File;
    my %db;
    my $dbref = tie( %db, "DB_File", $filename ) || die $!;