>perl -E"1 for $h{x}; say exists($h{x}) || 0;
1

>perl -E"sub {}->( $h{x} ); say exists($h{x}) || 0;
0

>perl -E"\@h{x}; say exists($h{x}) || 0;
1