C:\Documents and Settings\franciscor>perl -
use List::MoreUtils qw(uniq);
my @list = qw(3 1 2 1 3 4 1 5 1 6 8 1 2 1 2 7 1 1 2 3 4 6 1);
my @unique = uniq(@list);
print "@unique";
__END__
3 1 2 4 5 6 8 7

##</code><code>##