Hash of Hashes

[alex]

Howdy

Kann mir jemand mal ein Beispiel liefern, wie ich Hash of Hashes anlege und auch auslesen kann? In meinen Buchreferenzen finde ich nur folgenden Code:

%HASH = (
    flintstones => {
        "lead"      => "fred",
        "pal"       => "barney",
    },
    jetsons => {
        "lead"      => "george",
        "wife"      => "jane",
        "his boy" => "elroy",  # key quotes needed
    },
    simpsons => {
        "lead"      => "homer",
        "wife"      => "marge",
        "kid"       => "bart"
    }
);

Nur wie lese ich das aus?
print "\n $HASH{simpsons}{lead} \n";
erzeugt leider einen uninitialized fehler .-(

Danke, alex