my %seen;
@TERMS = grep { ! $seen{$_}++ } @TERMS;