use strict;
use warnings;
use Data::Dumper;

my %hash;
if (exists $hash{foo}{bar}{element}) {
        print "It exists!\n"
}
print Dumper(\%hash);

##</code><code>##

$VAR1 = {
          'foo' => {
                     'bar' => {}
                   }
        };

##</code><code>##

use strict;
use warnings;
use Data::Dumper;
no autovivification; # disables types of autovivification which are typically not intended

my %hash;
if (exists $hash{foo}{bar}{element}) {
        print "It exists!\n"
}
print Dumper(\%hash);


##</code><code>##

$VAR1 = {};