$ perl -le'print $r||"[undef]"; $r->{x}; print $r||"[undef]";'
[undef]
HASH(0x814ec28)

##</code><code>##

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