[Perl] Hash auslesen

[mtn]

Hallo,

ich habe hier einen Hash und würde einfach gern

den Inhalt verschiedener Keys ausgeben,

aber egal was ich versuche, ich kriegs nicht hin.

Hier erstmal der Hash:

#!/usr/bin/perl -w


my $obst =   {   

                "Apfel"   	=>    	["gelb", "gruen", "rund"],

                "Birne"		=>	["gelb", "gruen", "birnig", "FSInodeUsedPercent", "FSUsedSpace"],

		"Orange"	=>	["orange", "zermatscht", "rund"]

		};


my $pizza = {

                "Margaritha"    =>  "basic",

                "Salami"	=>  "Wurst",

                "Funghi"        =>  "Thunfisch"

                };

Wie muss ich es nun anstellen wenn ich bestimmte

Werte einfach auf dem Bildschirm dargestellt haben will,

z.B. alle Werte des Keys "Apfel".

Hab bei google zwar viel gefunden aber funktioniert

hat das irgendwie alles nicht.

Danke für eure Hilfe

[mtn]

Hab es mit Hilfe anderer rausbekommen

# mach das für alle Elemente des Arrays


while(@array=each(%obst))

{

#schlüssel nach $array[0] und Wert nach $array[1]


#Ausgabe des Hash Wertepaares


print "$array[0] => $array[1]\n";	


#p ist Zeiger auf das array in $array[1], welches oben als ein Element des hashes initialisiert wurde


    $p=$array[1];


#Ausgabe aller werte in dem array, auf das p zeigt


        foreach(@$p)

	{


#ausgabe des Array-Elementes mit Zeilenumbruch


		print "$_\n";

	}