programming-examples/perl/Subroutine/Passing hash to a subroutine.pl

$hash{fruit} = peach;
$hash{vegetable} = broccoli;
$hash{pie} = blueberry;

sub printem
{
    %hash = @_;

    foreach $key (keys %hash) {
        print "$key => $hash{$key}\n";
    }
}

printem(%hash);