my %hash = (a => 1, b => 2);
mysub(\%hash);
print Dumper(\%hash)

sub mysub{
my $h = shift;
delete $h->{'b'};
}

##</code><code>##

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