use strict;
use warnings;
use CGI qw(param header);
use HTML::Template;

my @entry = (
   [qw(one first)], [qw(two second)], [qw(three third)],
   [qw(four fourth)], [qw(five fifth)],
   [qw(six sixth)], [qw(seven seventh)], [qw(eight eighth)],
   [qw(nine ninth)], [qw(ten tenth)],
);

my $tmpl = HTML::Template->new(filehandle => \*DATA);
$tmpl->param(
   result   => [map {which => $entry[$_][1]}, param 'sel'],
   checkbox => [
      { row => [map {label => $entry[$_][0], value => $_}, 0..4] },
      { row => [map {label => $entry[$_][0], value => $_}, 5..9] },
   ],
);

print header,$tmpl->output;

__DATA__
<tmpl_loop result>
   you checked the <tmpl_var which> box<br />
</tmpl_loop>

<form method="POST">
<table>
   <tmpl_loop checkbox>
   <tr>
      <tmpl_loop row>
      <td>
         <tmpl_var label>
         <input value="<tmpl_var value>" type="checkbox" name="sel"/>
      </td>
      </tmpl_loop>
   </tr>
   </tmpl_loop>
</table>
<input type="submit" name="go" value="showme" />
</form>

##</code><code>##

use strict;
use warnings;
use CGI qw(param header checkbox td);
use HTML::Template;

my @entry = (
   [qw(one first)], [qw(two second)], [qw(three third)],
   [qw(four fourth)], [qw(five fifth)],
   [qw(six sixth)], [qw(seven seventh)], [qw(eight eighth)],
   [qw(nine ninth)], [qw(ten tenth)],
);

my $tmpl = HTML::Template->new(filehandle => \*DATA);
$tmpl->param(
   result   => [map {which => $entry[$_][1]}, param 'sel'],
   checkbox => [
      { row => td[map checkbox('sel',undef,$_,$entry[$_][0]), 0..4] },
      { row => td[map checkbox('sel',undef,$_,$entry[$_][0]), 5..9] },
   ],
);

print header,$tmpl->output;

__DATA__
<tmpl_loop result>
   you checked the <tmpl_var which> box<br />
</tmpl_loop>

<form method="POST">
<table>
   <tmpl_loop checkbox>
      <tr><tmpl_var row></tr>
   </tmpl_loop>
</table>
<input type="submit" name="go" value="showme" />
</form>