$a = {};
warn "exists " if exists $a->{a}{b}{c}{d};
use Data::Dumper;
die Dumper($a);
__END__
$VAR1 = {
          'a' => {
                   'b' => {
                            'c' => {}
                          }
                 }
        };