perl sub parameter

[dakjo]

Nabend Forum,

ich hab da so nen kleines Prob.
Wie stell ich das an, das ich einer Funktion nicht so die Parameter übergebe
funktion($parm1,$param2);
sondern so

funktion(-funparma1=>$param1, -funparma2=>$param2)
und es dann halt in der Funktion so wieder auslesen kann:

if($param1) blabla

[fork]

Indem du z. B. eine Hashreferenz übergibst.

&bla( { debug=>"max", verbose=>"yes" } );

sub bla {
my $h=shift;
foreach my $key ( keys %{$h} ) {
print "Key : $key Value : ".$h->{"$key"}."\n";
}