use Data::Dumper;

$hash{keyA}{keyB}{keyC}{keyD}=1;
if (exists($hash{keyA}{keyB}{keyE}{keyF})) {
	print "Hi\n";
}

print Dumper (\%hash);

if (exists($hash{keyA}{keyB}{keyE}{keyF})) {
	print "Hi\n";
}


##</code><code>##

if (exists($hash{keyA}{keyB}{keyE})) {