my @genes = split m/\t/, $genesList;