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