Table

my %trial_hash = ( ABC => "john", DEF => "mike", ); ##

##

my $tmpl = HTML::Template->new(scalarref => \ <
Table


    



EO_TMPL
);

##

##

$tmpl->param(
    TH => [ map { CELL => $_ }, qw( Type Value ) ],
    TD => [ map { CELL => $_ }, (each %trial_hash),
    ],
);

##

##


Table


    Type Value

ABC john


##

Type	Value
ABC	john

##

    TR => [
        { TD => [ map { CELL => $_ }, (each %trial_hash) ] },
        { TD => [ map { CELL => $_ }, (each %trial_hash) ] },
    ],