use HTML::Template;
my $template = q{
<TABLE border=1><TMPL_LOOP name="table_data">
  <TR><TMPL_LOOP name="row_data">
    <TD><TMPL_VAR name="cell_data"></TD>
  </TMPL_LOOP></TR>
</TMPL_LOOP></TABLE>
};

my $template = HTML::Template->new(scalarref => \$template, option => 'value');
$template->param(table_data => \@table_data);
print $template->output();