use Data::Dumper;

my $foo = {};

1 if (defined($foo->{bar}));
print Dumper($foo);

1 if (defined($foo->{bar}->{baz}));
print Dumper($foo);