use strict;

while(my $line = <DATA>){
　　chomp $line;
　　if($line eq "animal"){
　　　　print "n\n";
　　}else{
　　　　print "m\n";
　　}
}
exit;

__DATA__
animal
plant
food
food
animal

原因は、$line に入れてるのに、chomp は $_ 対して行ってるから。

自分と似たようなミスですねｗｗ