Scratch that last:

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

map aliases $_ to its operands, so its operands are lvalues. do{} creates copies.