>perl -le"%{ $h }; print $h ? 1 : 0"
0

>perl -le"%{ $h } = (); print $h ? 1 : 0"
1

>perl -le"keys %{ $h }; print $h ? 1 : 0"
1

>perl -le"sub {}->( %{ $h } ); print $h ? 1 : 0"
1

##</code><code>##

>perl -le"sub f {}  f( %{ $h } ); print $h ? 1 : 0"
1

>perl -le"print( %{ $h } ); print $h ? 1 : 0"

0