Select Code to Download

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

...
        die "$_ is not in the species table\n";
    }
} @species;

@in = qw{a b c -d -e};
@out = map { s/-//; $_ } @in;

@in = qw{a b c -d -e};
map { s/-//; $_ } @out = @in;