my %h;
grep { !$h{$_}++ } @list;