my $var = {};
print if exists $var->{a};
print Dumper($var);

print if exists $var->{a}->{b};
print Dumper($var);