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