grep { not exists $dup{$_} } @list