And to avoid the "no autovivificatio" caveats, Data::Diver :)

use Data::Diver qw/ Dive /;
if( Dive( \%hash, qw/ foo bar element /) ){
        print "It exists!\n"
}
[download]