my %seen; @uniq = grep ! $seen{$_}++, @list;