%a = qw(cat dog);
print $a{cat};
foo(%a);
print $a{cat};

sub foo { $_[1] = "elephant" }