for my $word (sort keys %freqs) {
        $freqs{$word}{$_} ||= 0 for keys %{$freqs{all}};
        printf "$word\t";
        print join "\t", join "\t", map $freqs{$word}{$_}, sort keys %{$freqs{$word}};
        print "\n";
    }

##</code><code>##

    for my $word (sort keys %freqs) {
        $freqs{$word}{$_} ||= 0 for keys %{$freqs{all}};
        printf REPORT "$word\t";
        print REPORT join "\t", join "\t", map $freqs{$word}{$_}, sort keys %{$freqs{$word}};
        print REPORT "\n";
    }