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