my %saw; for (@list) { next if $saw{$_}++; # ... }