my %h = (
  1 => 'foo',
  2 => 'bar',
);

f(\%h);

sub f{
  my $ref = shift;
  $ref->{1} = 'otto';
  return 'egal';
}

print $h{1}; # otto