my %category_count;        
        sub handle_article {
            my ($path, $category, $body) = @_;
            ...

            # also, count number of articles in each category
            $category_count{$category}++;
        }

Oops, it turns out that handle_article is called more than once for each article!