my %subcat =
        (Foo => 3, Bar => 2, Baz => 10, Quux => 1);
    my $index = 0;
    print "<TR>\n";
    for my $sc ( keys %subcat ) {
        print "<TD>", $sc, " (", $subcat{$sc}, ")</TD>\n";
        print "</TR>\n<TR>\n" if ++$index % 3 == 0;
    }
    print "</TR>\n";