tie %A, "DB_File", undef, O_CREAT|O_RDWR, 0666, $DB_HASH ;