use DB_File;
$DB_BTREE->{'flags'}= R_DUP;
tie %D1, "DB_File", "filename2", O_CREAT|O_RDWR, 0666, $DB_BTREE or die "Can't open $filename2: $!\n";