use Data::Dumper;

use strict;
use warnings;

my $h = {};
if (exists($h->{"a"}{"b"})) {
}
if (exists($h->{"a"})) {
	print "exists\n";
}
print Dumper($h);