my %category_count;
        
        sub handle_article {
            my ($path, $category, $article_body) = @_;
            ...
            # lots of stuff
            ...
            
            # count number of articles in each category
            $category_count{ $category }++;
        }

• What, you mean that's all?