$ perl -le'sub f {} print 0+keys %h; for ($h{x}) {} print 0+keys %h;'
0
1