tie %hash,  'DB_File', [$filename, $flags, $mode, $DB_HASH];
foreach (keys %hash) { ... }