Hash of Hashes

[alex]

Trugschluß, mein Fehler.

Irgendwie klappt das hier nicht ganz.
Ich wollte eine Datenbank mittels DB_File und tie %HASH erstellen, aber das macht Probleme bei Hash of Hashes, oder?

Ich poste mal das Skript:

########

#!/usr/bin/perl -w

use DB_File;

tie %HASH, "DB_File", "db.file" or die "Can't open FILENAME: $!\n";

%hoh = (
    simpsons => {
        "lead"      => "homer",
        "wife"      => "marge",
        "kid"       => "bart"
 }
);

$HASH{hoh}= %hoh;

if(exists $HASH{hoh})
{
  print "$HASH{hoh}{simpsons}{kid}";
}

untie %HASH;

#######

Wieso klappt das nicht? Er gibt mir diese uninitialisiert-Fehlermeldung. Was muß ich denn anders machen?

gruß
alex