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