use DB_File;
tie(%seq_hash, "DB_File", "tmp.db", O_RDWR|O_CREAT);