if($annotation =~ /(\b($term)\b|$term-)\b|(-$term)\b/i) {
            $nTermHits {$term}++;
            $nTotalHits++;
            push(@annotationlist, "$annotation\n");
    }

##</code><code>##

        if($annotation =~ /(?:\b$term|$term-|-$term)\b/i) {

##</code><code>##

foreach $term (@terms) {
    if ($nTermHits {$term} > 0) {
        printf "%s\t%d\n", $term, $nTermHits {$term};
    }
}

##</code><code>##

foreach $term (keys %nTermHits) {
    printf "%s\t%d\n", $term, $nTermHits {$term};
}