use strict;
use warnings;
use HTML::Template;

my $template = HTML::Template->new(filehandle => \*DATA);
$template->param(foo => [
  { 
    bar => [{one => 'stuff', two => 'otherstuff'}]
  },
  {
    bar => [{one => 'stuff2', two => 'otherstuff2'}]
  }
]);

print $template->output;
__DATA__
<table>
<tmpl_loop foo>
<tr>
  <tmpl_loop bar>
  <td>
    <tmpl_var one><br/>
    <tmpl_var two>
  </td>
  </tmpl_loop>
</tr>
</tmpl_loop>
</table>