use strict;
use warnings;
use DBIx::XHTML_Table;

my $row  = [map [1..10], 1..10];
my $head = [map "head$_", 1..10];

print DBIx::XHTML_Table->new($row,$head)->calc_totals->output;
[download]

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)