foreach $term (@TERMS){
	push(@INDEX,$term);
	for($i=0; $i<scalar(@TERMS); $i++){
		if ($term eq $TERMS[$i]){
			delete $TERMS[$i];
		}
	}
}