Select Code to Download

foreach my $line (@lines){
  @lineFields = split( ' ', $line );
}

#get the comman separated list of genes
my @geneItems = split( ',', $lineFileds[3] );
...
   #just continue processing and store in hash
}