perl ハッシュのデフォルト値. 存在しない key にアクセスすると作ってくれる

gistfile1.pl

$ perl -MData::Dumper -le 'my $a = +{}; $a->{foo}->{bar}++; $a->{foo}->{bar}++; $a->{foo}->{baz}++; $a->{blah}->{blah}++; print Dumper $a;'
$VAR1 = {
          'blah' => {
                      'blah' => 1
                    },
          'foo' => {
                     'bar' => 2,
                     'baz' => 1
                   }
        };