Select Code to Download

$VAR1 = {

...
                        'VBN' => '0.333333333333333'
                      },
...

    for $key( keys %bigrams)
    {
...
            $bigrams{$key}{$secKey} = ($bigrams{$key}{$secKey}) / ($fr
+eqs{$key});
        }
    }