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