my %unique;
@unique{@list} = ();

@list = keys %unique;