Select Code to Download

my %hash = ( foo => 'baz' );
print $hash{foo}.'\n';
...
   my $hash_ref = shift;
   $$hash_ref{foo}='bar';
}