if( my $cee = Dive \%hash , qw/ a b c / ){
   print "c exists $cee\n";
}