Select Code to Download

use strict;
use HTML::Template;
...
);

print Dumper \@array;

<table>
<tmpl_loop rows>
...
   </tr>
</tmpl_loop>
</table>

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

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

use strict;
use HTML::Template;
...
   </tr>
</tmpl_loop>
</table>