Select Code to Download

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

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