unless (my $speciesname eq (my specieslist{$entry})) {