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);