在perl中初始化哈希

Question

说我有这样的哈希：

   $word_count{$file}{$word}++ if blah blah

我的程序查找用户提供的单词出现在给定文件中的次数。有时用户会提供一个不会在任何时候出现的单词。如果我尝试打印一个单词出现的次数+ 1，我会收到一个错误，说使用未初始化的值，另外，在printf中使用未初始化的值。

我怎么能初始化这个，因为这个词不会出现在我的哈希？

Answer 1

print 1 + ($word_count{$file}{$word} || 0);