http://www.perlmonks.org?node_id=449385

Public Scratchpad

Download, Select Code To D/L

---

   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
[download]