my %hash = ("KEY" => "VALUE", "NAME" => "DOE");
print "before send KEY is $hash{KEY}\n";
&sendRef(\%hash);
sub sendRef {
my $params = shift;
my %paramhash = %$params;
print "Hash is - ";
print %paramhash;
print "\n";
print "KEY is $paramhash{KEY}\n";
}
prints:
before send KEY is VALUE
Hash is -
KEY is