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

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