perl -e 'my %x=(); print scalar %x'
0

##</code><code>##

perl -e 'my %x=undef; print scalar %x'
1/8