if ( exists( $$x{fred} )) {
   print "fred defined\n";
   print "dave defined\n" if ( exists( $$x{fred}{dave} ));
}