Select Code to Download

#!/usr/bin/perl
use warnings;
...
my @INDEX = uniq @TERMS;

print "(", join( ',',@INDEX), ")\n";

C:\Code>perl uniqarray.pl
(1,2,7,4,5,3,27,81)