my @species =('HOMSAP','MUSMUS','-CIOINT');

map {
    /^-?(.+)$/;
    $_ = $1;
    unless (exists $refspecies{$_}) { # Species not in list
        die "$_ is not in the species table\n";
    }
} @species;