@known_animal{ qw( cat dog fox horse rabbit rat ) } = (); 
@animals = /\b(\w++)(?{ exists $known_animal{$^N} }?)/g;
print "@animals\n";