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

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

0