sub foo{$_[0]=1}
foo($hash{'a'});
print exists $hash{'a'}?'yes':'no';
#yes