Perl哈希语法错误

我是Perl新手，当我尝试使用散列时，编译器给了我一个语法错误。 这就是问题所在：

while (<>){
    @words_in_line = /[a-z](?:[a-z']*[a-z])?/ig;
    foreach $word (@words_in_line){
            %wordcount{$word}++;
    }
}

---

要访问散列值，请使用标量符号

$

。更改：

        %wordcount{$word}++;

致：

---

要访问散列值，请使用标量符号

$

。更改：

        %wordcount{$word}++;

致：

        $wordcount{$word}++;