如何在perl子函数中传递hash

Answer 1

sub test {
    my %hash = @_;
    print "$_ => $hash{$_}$/" foreach keys %hash;
}

my %h = ( A => 100, B => 200, C => 300 );
test(%h);