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

##</code><code>##

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