#!/usr/bin/perl -w

use strict;
use HTML::Template;

my @scores = (
 { name  => 'name1', score => 4 },
 { name  => 'name2', score => 2 },
 { name  => 'name3', score => 3 },
);

my $template = HTML::Template->new(
  filename          => 'scores.tmpl',
  loop_context_vars => 1,
);

$template->param(scores => \@scores);

print $template->output;
##</code><code>##

<table>
<TMPL_LOOP NAME='scores'>

  <TMPL_IF NAME='__ODD__'>
    <tr>
  </TMPL_IF>

  <td><TMPL_VAR NAME='name'></td><td><TMPL_VAR NAME='score'></td>

  <TMPL_UNLESS NAME='__ODD__'>
    </tr>
  </TMPL_UNLESS>

</TMPL_LOOP>
</table>