Select Code to Download

$hash{$key} = ...;

...
\$hash{$key}

some_sub($hash{$key})   # Exception!! See footnote.

$ perl -e'my %h;  1 for       $h{k};  CORE::say 0+keys(%h)'
1

$ perl -e'my %h;  1 for $x // $h{k};  CORE::say 0+keys(%h)'
0