Übergabe eines Hashes in eine Subroutine

[Struppi]

test(%hash);

sub test
{
my $hash = shift;
for my $k (keys %$hash)
{
    print "$k - @{$hash->{$k}} \n";
}

Ach, und eine for Schleife ist nicht optimal in der Situation:

my $hash = shift;
while (my ($key, $val) = each %$hash)
{
print "$key - @{$val} \n";
}

soll schneller sein.

Strupppi.