my %seen;
undef @seen{@array};
@array = keys %seen;