$hash{fruit} = peach;$hash{vegetable} = broccoli;$hash{pie} = blueberry;sub printem{ %hash = @_; foreach $key (keys %hash) { print "$key => $hash{$key}\n"; }}printem(%hash);