sub parseGeneEntry { 
    my $genesList = shift;
    my @genes  = split /\t/, $genesList;

    # should be identical with shifting @genes two times;
    splice( @genes, 0, 2 );

    return join "\t", @genes;
}