$ref = tie(%hashs,'SDBM_File', "$path/hashs", O_RDWR|O_CREAT, 0644) or die "Couldn't tie SDBM file: $!; aborting";