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