tie (%hash, DB_File', "myfile") or die "Can't open $filename: $!\n";