>perl -e"my $x=undef; $y++ if $x->{foo}; print $x"
HASH(0x15d56e0)