use strict;
use CGI qw(:standard);

my @array = (0..11);
my $max = 4;
my ($i,$j) = (0,0);

my $tab;
for (@array) {
   push @{$tab->[$j]},$_;
   $j++ unless ++$i % $max;
}

print table(map{ Tr(td $_)} @$tab);
[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)