my %unique;
++$unique{$_} foreach @list;
@list = keys %unique;