mehrere db_files gleichzeitig öffnen geht nicht ?

[alex]

Ahoi

ich würde gerne mehrere DB_FILEs öffnen:

__CODE__

my $db = tie %HASH1, "DB_File", $file1, O_CREAT | O_RDONLY, 0644 or die "Can't open db_file: $!\n";
    my $fd  = $db->fd();
    open DATAFILE, "+<&=$fd" or die "Fehler beim sicheren Öffnen: $!\n";
    flock(DATAFILE, LOCK_EX ) or die "Konnte Lock nicht bekommen: $!";

my $test1 = $HASH1{"wert1"};

my $db2 = tie %HASH2, "DB_File", $file2, O_CREAT | O_RDONLY, 0644 or die "Can't open db_file: $!\n";
    my $fd2 = $db2->fd();
    open DATAFILE, "+<&=$fd2" or die "Fehler beim sicheren Öffnen: $!\n";
    flock(DATAFILE, LOCK_EX ) or die "Konnte Lock nicht bekommen: $!";

my $test2 = $HASH1{"wert1"};

__END__

Allerdings hab ich das Gefühl das sobald ich die 2.te DB öffne die erste geschlossen wird, weil $test2 keinen wert besitzt... was muss ich also tun damit das so funzt wie ich mir das wünsche? (das soll unter 'use strict' laufen...)

danke, alex