tie %database, 'DB_File', "bar", O_CREAT|O_RDWR, 0666, $DB_HASH;