tie (my %hash, 'DB_File', $file, O_RDWR, 0600, $DB_HASH) || next;