Select Code to Download

for my $target (@Accession) {

}

    my @found = grep /$match/, @GI;

use strict;
use warnings;
...
    my @found = grep /$match/, @GI;
    print "$match\n", Dumper [ split /\|/, $_ ] for @found;
}

use strict;
use warnings;
...
for (@accession) {
    print $genes{$_}[1], $/;
}