Select Code to Download

Category 1
    Forum 1    threads: 10   replies: 20
...
    Forum 3    threads: 14   replies 42

etc.

@all_categories = (
   {
...
  },
  ...
);

           SELECT 
            IFNULL(COUNT(mx_replies.forum_id),0) AS reply_count, 
...
            mx_forums.id,forum_name, forum_description
           ORDER BY 
            mx_forums.create_date DESC

    for ( @{ $categories } ) {

...
        push @all_categories, { name => $_, forums => $forums, };
    }

$tmpl->param( categories => \@all_categories );

<ol>
<tmpl_loop categories>
...
</li>
</tmpl_loop>
</ol>