Eu sou novo no Perl, a propósito. Eu tenho um script Perl que precisa contar o número de vezes que uma string aparece no arquivo. O script obtém a palavra do próprio arquivo.

Preciso que pegue a primeira palavra no arquivo e pesquise o restante do arquivo para ver se ele se repete em outro lugar. Se for repetido, preciso retornar a quantidade de vezes que foi repetido. Se não foi repetido, ele pode retornar 0. Preciso que ele obtenha a próxima palavra no arquivo e verifique novament

Vou pegar a primeira palavra do arquivo, procurar repetições dessa palavra no arquivo, pegar a segunda palavra do arquivo, procurar repetições dessa palavra no arquivo, pegar a terceira palavra do arquivo, procurar repetições no arquivo dessa palavra.

Até agora, tenho um loop while que captura cada palavra de que preciso, mas não sei como fazer com que ele procure repetições sem redefinir a posição da minha linha atual. Então, como faço isso? Todas as idéias ou sugestões são muito apreciadas! Desde já, obrigado

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