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