use strict;
use HTML::Template;
use Data::Dumper;

my @array = (
   [(1..5)],
   [qw(one two three four five)],
   [qw(ein zwei drei veir funf)],
   [qw(hana dool set net dasut)],
   [qw(yi er san si wu)],
);

print Dumper \@array;

##</code><code>##

<table>
<tmpl_loop rows>
   <tr>
   <tmpl_loop cells>
      <td><tmpl_var data></td>
   </tmpl_loop>
   </tr>
</tmpl_loop>
</table>

##</code><code>##

my $rows = [ map {{ cells => $_ }} @array ];
print Dumper $rows;

##</code><code>##

my $rows = [ map {{ cells => [ map {{ data => $_ }} @$_ ] }} @array ];
print Dumper $rows;

##</code><code>##

use strict;
use HTML::Template;
use Data::Dumper;

my @array = (
   [(1..5)],
   [qw(one two three four five)],
   [qw(ein zwei drei veir funf)],
   [qw(hana dool set net dasut)],
   [qw(yi er san si wu)],
);

my $rows = [ map {{ cells => [ map {{ data => $_ }} @$_ ] }} @array ];
my $data = do {local $/;<DATA>};
my $tmpl = HTML::Template->new(
   scalarref => \$data,
);

$tmpl->param( rows => $rows );
print $tmpl->output;

__DATA__
<table>
<tmpl_loop rows>
   <tr>
   <tmpl_loop cells>
      <td><tmpl_var data></td>
   </tmpl_loop>
   </tr>
</tmpl_loop>
</table>