my %seen;
my @array = grep !$seen{$_}++, LIST;