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