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
TypeValue
ABCjohn
##
## #### TR => [ { TD => [ map { CELL => $_ }, (each %trial_hash) ] }, { TD => [ map { CELL => $_ }, (each %trial_hash) ] }, ],