Select Code to Download

sub foo(\%)
{
...
    # do something with it...
    $h->{"FOO"} = "Hello, world!";
}

my %stash;

foo(\%stash);