use Data::Dumper qw(Dumper);

$foo = undef;
print Dumper($foo); # $foo is undef, obviously
$bar = $foo->{bar};
print Dumper($foo); # $foo is now empty hashref