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