@genes;
    @genes = split(/\t/,$genesList);
[download]

Mentioning a variable before using it doesn't do anything useful - it's just cargo cult programming. use strict and declare your variables with my instead:

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