Select Code to Download

foreach (@list1){
    @temp=split(/\s+/, $_);
}

# create lookup table

...
        print "The GID for gene $gene is $gid\n";
    }
}