Select Code to Download

use strict;
my @set_of_stuff = (1,3,4,6,7,8,10,12,13,14,15,19,23);
my $items_per_row = 4;
...
  push @row_data, {cell_data=>'&nbsp'} while scalar @row_data < $items
+_per_row;
  push @table_data, { row_data => \@row_data };
}

use HTML::Template;
my $template = q{
<TABLE border=1><TMPL_LOOP name="table_data">
...
my $template = HTML::Template->new(scalarref => \$template, option => 
+'value');
$template->param(table_data => \@table_data);
print $template->output();