@animals{@animals}=undef;

print "Got a dog!\n" if exists $animals{dog};