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

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

    my @return;
    foreach my $element ( @genes ){
        push @return, $element;
    }

    return join "\t", @return;
}

##</code><code>##


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;
}