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