$ perl -le'undef $_; defined $_->{0}; print $_'
HASH(0x813f1c8)