$VAR1 = {

          'like' => {
                      'VBP' => '0.0882352941176471',
                      'IN' => '0.823529411764706',
                      'VB' => '0.0882352941176471'
                    },

          'kind' => {
                      'JJ' => '0.2',
                      'NN' => '0.8'
                    },
          'distribution' => {
                              'NN' => '1'
                            },

          'successful' => {
                            'JJ' => '1'
                          },
          'capped' => {
                        'JJ' => '0.666666666666667',
                        'VBN' => '0.333333333333333'
                      },
...

##</code><code>##

	for $key( keys %bigrams)
	{
		for $secKey ( sort { $bigrams{$key}{$a} <=> $bigrams{$key}{$b} } keys %{ $bigrams{$key} } ) 
		{
			$bigrams{$key}{$secKey} = ($bigrams{$key}{$secKey}) / ($freqs{$key});
		}
	}