Select Code to Download

my %hash=(a=>1,b=>2);
my $x=&foo(\%hash);
...
    $h->{c}=5;
    return 1;
    }