my @uniq = sort keys %{{map {$_ => 1}
                        grep{not exists $exclude{$_}}@words}};