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