use strict;
use HTML::Template;

my $data = do {local $/; <DATA>};
my $temp = HTML::Template->new(
   scalarref => \$data,
);

$temp->param(
   row => [
      { 'link' => 'foo' },
      { 'link' => 'bar' },
      { 'link' => 'baz' },
      { 'link' => 'qux' },
   ],
);

print $temp->output;

__DATA__
<table border="1">
<tmpl_loop row>
<tr>
<td><a href="<tmpl_var link>"><tmpl_var link></a></td>
</tr>
</tmpl_loop>
</table>