use HTML::Template;

my $template = qq{
<TMPL_LOOP NAME=TABLE>
  <table border=1>
    <tr><th>key</th>
      <TMPL_LOOP NAME=KEYCELL>
        <td><TMPL_VAR NAME=KEY></td>
      </TMPL_LOOP>
    </tr><tr><th>value</th>
      <TMPL_LOOP NAME=VALCELL>
        <td><TMPL_VAR NAME=VAL></td>
      </TMPL_LOOP>
    </tr>
  </table>
</TMPL_LOOP>
};

my %somehash = map(("key$_" => "val$_"), 1..15);
my $maxwidth = 6;
my @tables = ();

my $num_items = 0;
for (keys %somehash) {
    my $table_num = int($num_items++ / $maxwidth);

    push @{$tables[$table_num]{keycell}}, { key => $_ };
    push @{$tables[$table_num]{valcell}}, { val => $somehash{$_} };

}

my $template = HTML::Template->new( scalarref => \$template );
$template->param( TABLE=>\@tables );
print $template->output;