my %hash;

print "Ovid exists '" . (exists  $hash{'Ovid'}) . "'\n";
if ($hash{'Ovid'}{'tall'}) { print "Ovid is tall\n" }; # I hate this behavior!
print "Ovid exists '" . (exists  $hash{'Ovid'}) . "'\n";