Yo lo que haría sería primero leer todas las palabras de ese archivo. Luego, en el núcleo principal, donde vamos mirando línea a línea, lo metemos dentro de un bucle for() que vaya recorriendo las palabras, algo así: for my $palabra (@palabras) { y luego ya podemos mirar a ver si esa $palabra está e...