versch. glob. hash mit Unterfunktion verändern

[Rolf Rost]

Hallo liebe Forumer und PERL Freunde,

hab einen oder mehrer globale hashes in einem PERL Script.
Möchte nun, die Werte mit einer Unterfunktion verändern like this:

my %name = (1, "Rolf");
print "$name{1}\n";

crash(%name, 1, 'Erwin'); # die Unterfunktion
print "$name{1}\n";

nun soll der name in einer Unterfunktion verändert werden

uebergeben wir der sub eine reference auf den hash, der key und der value

sub crash{
 my ($ref, $key, $val) = @_;
 # was muss hier stehen ??
}

Die sub muss also den globalen hash verändern, ggf. muss ich der sub sagen können, um welchen globalen hash es sich handelt.

Q: Wie machen ??

Gruss, Rolf