use strict;
use warnings;
use Data::Dumper;
use HTML::Template;

my %hash = (
    ABC => "john",
    DEF => "mike",
    GHI => "mary",
);

my $tmpl = HTML::Template->new(scalarref => \q{
<table>
    <thead>
        <tr><TMPL_LOOP TH>
            <th><TMPL_VAR CELL></th></TMPL_LOOP>
        </tr>
    </thead>
    <tbody><TMPL_LOOP TD>
        <tr>
            <td><TMPL_VAR KEY></td>
            <td><TMPL_VAR VAL></td>
        </tr></TMPL_LOOP>
    </tbody>
</table>
});

$tmpl->param(
    TH => [ map { CELL => $_ }, qw( Type Value ) ],
    TD => [ map { KEY => $_, VAL => $hash{$_} }, keys %hash ],
);

print $tmpl->output;