##
use HTML::Template;
my $table =
[
{ row => [
{ name => a11, picture => aaa },
{ name => a12, picture => aaa },
{ name => a13, picture => aaa },
]
},
{ row => [
{ name => a21, picture => aaa },
{ name => a22, picture => aaa },
{ name => a23, picture => aaa },
]
},
{ row => [
{ name => a31, picture => aaa },
{ name => a32, picture => aaa },
{ name => a33, picture => aaa },
]
},
];
my $t = HTML::Template->new(filename => 'aa.tmpl');
$t->param(TABLE => $table);
print $t->output;