my $template = HTML::Template->new(filename => 'test1.html');
my @array1 = qw(1 2 3 4 5);
my @array2 = qw(10 11 12 13 14 15);
my @outer;
for my $o (@array1){
my @inner;
for my $i (@array2){
push(@inner, {INNERTEXT=>$i});
}
push(@outer, {
INNER=> \@inner,
TITLE=> "test drive"
});
}
$template->param(OUTER => \@outer);
print $template->output();
####