However be careful with exists(), it creates stuff for you:

use Data::Dumper;

use strict;
use warnings;

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

This will make $h->{"a"} exists.