foreach (@species) {
    ( my $species = $_ ) =~ s/^-//;
    unless (exists $refspecies{$species}) {
        die "$species is not in the species table\n";
    }
}