Select Code to Download

$ perl -le'\$h{k}; print exists($h{k})?1:0'
1
...

$ perl -le'sub{ $_[0]=$x }->(@h{k}); print exists($h{k})?1:0'
1