Select Code to Download

my %hash = (a => 1, b => 2);
mysub(\%hash);
...
my $h = shift;
delete $h->{'b'};
}

$VAR1 = {
          'a' => 1
        };