Select Code to Download

my @taxR = ("PLRV1", "PMTVS", "PVXHB");

...
if (exists $taxR{$curEntry}) {
    print "do rest of stuff";
}