Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

steelrose's scratchpad

by steelrose (Scribe)
on Apr 19, 2005 at 18:41 UTC ( #449385=scratchpad: print w/replies, xml ) Need Help??

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