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