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