my %seen;
@unique_array = grep { not $seen{$_}++ } @array;