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

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

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