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

@list = keys %unique;