Perl 스크립트에 대해 설명해주세요.

한 줄에 한 단어씩 포함된 텍스트 파일을 읽는 Perl 프로그램을 작성하세요. 키로 읽은 단어와 값으로 읽힌 횟수를 포함하는 해시를 만듭니다. 각 단어와 그 빈도를 인쇄하세요.

print $ARGV[0]."\n";

open (FILE,$ARGV[0]);
while ($line = <FILE>)
{
        chomp($line);
        if (exists($count{$line}))
        {
            $count{$line}++;
        }
        else
        {
            $count{$line} = 1;
        }
}

while ( ($word,$occurrences) = each(%count))
{
    print $word."  ".$occurrences."\n";

}

1. open INFILE교체 하면 안되는거 아닌가요 FILE?

2. $count{$line}$count:여기서 기능은 무엇입니까? 그냥 쓸 수는 없나요 $line++?

3. 이 문장을 설명해 주실 수 있나요?

   while ( ($word,$occurrences) = each(%count))