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