use strict;
use warnings;

my %HoH;
if ( Exists( \%HoH, "foo", "bar", "baz" )) {
    warn "Something is very strange\n";
}
print scalar keys %HoH, "\n";

$HoH{foo} = { bar => { baz => "okay" }};
if ( Exists( \%HoH, "foo", "bar", "baz" ) and !Exists( \%HoH, "oops", "uhoh" )) {
    print "All is well\n";
}
print scalar keys %HoH, "\n";

# the following sub would actually be in a module:

sub Exists
{
    my  ( $href, $topkey, @subkeys ) = @_;
    return unless ( ref( $href ) eq 'HASH' );

    my $result = 0;
    if ( exists( $$href{$topkey} )) {
        $result = ( ref( $$href{$topkey} ) eq 'HASH' and @subkeys ) ?  
            Exists( $$href{$topkey}, @subkeys ) : 1;
    }
    return $result;
}