Perlスクリプトについて説明してください。

1行に1単語ずつ含まれるテキストファイルを読み取る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))