my %unique = ();

@unique{@array} = ();
@array = sort keys %unique;