Soy nuevo en Perl, por cierto. Tengo un script de Perl que necesita contar la cantidad de veces que aparece una cadena en el archivo. El script obtiene la palabra del archivo mismo.

Lo necesito para tomar la primera palabra en el archivo y luego buscar el resto del archivo para ver si se repite en otro lugar. Si se repite, lo necesito para devolver la cantidad de veces que se repitió. Si no se repitió, puede devolver 0. Necesito que luego obtenga la siguiente palabra en el archivo y verifique esto nuevamente.

Tomaré la primera palabra del archivo, buscaré en el archivo las repeticiones de esa palabra, tomaré la segunda palabra del archivo, buscaré en el archivo las repeticiones de esa palabra, tomaré la tercera palabra del archivo, buscaré las repeticiones en el archivo de esa palabra.

Hasta ahora tengo un ciclo while que está tomando cada palabra que necesito, pero no sé cómo hacer que busque repeticiones sin restablecer la posición de mi línea actual. Entonces, ¿cómo hago esto? Cualquier idea o sugerencia es muy apreciada! ¡Gracias por adelantado

while (<theFile>) {
    my $line1 = $_;
    my $startHere = rindex($line1, ",");
    my $theName = substr($line1, $startHere + 1, length($line1) - $startHere);
    #print "the name: ".$theName."\n";
}