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

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