$DB_BTREE->{'flags'} = R_DUP ;
my $file="f.db";
my $x = tie %h, "DB_File", $file, O_RDWR|O_CREAT, 0666, $DB_BTREE or die "Cannot open file $file: $!\n";