If all you want is existence, then this:

@animals{@animals}=undef;

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

is faster and uses less memory.