for my $month ( keys %flushes ) {
    print $month . "\n";
    print 'Total: ' . $flushes{$month}{TOTAL} . "\n#####\n";
    for my $user (
        sort { $flushes{$month}{$b} <=> $flushes{$month}{$a} } keys %{ $flushes{$month} }
    ) {
        next if $user eq 'TOTAL';
        printf "%-20s%3d\n", $user, $flushes{$month}{$user};
    }
    print "\n";
}