$ perl -le'\$h{k}; print exists($h{k})?1:0'
1

$ perl -le'sub{ $x=$_[0] }->($h{k}); print exists($h{k})?1:0'
0

$ perl -le'sub{ $_[0]=$x }->($h{k}); print exists($h{k})?1:0'
1

$ perl -le'sub{ $x=$_[0] }->(@h{k}); print exists($h{k})?1:0'
1

$ perl -le'sub{ $_[0]=$x }->(@h{k}); print exists($h{k})?1:0'
1