#!/usr/bin/perl -wT
use strict;
use HTML::Template;
my $html = do { local $/; };
my $template = HTML::Template->new(scalarref => \$html);
my @data = ( [1, 2, 3, 4, 5],
['one', 'two', 'three', 'four', 'five'],
['ein', 'zwei', 'drei', 'veir', 'funf'],
['hana', 'dool', 'set', 'net', 'dasut'],
['yi', 'er', 'san', 'si', 'wu'],
);
my %loop_data;
foreach my $array_num (0 .. $#data) {
my $array_ref = $data[$array_num];
foreach my $array_index (0 .. $#{@$array_ref}) {
$loop_data{rows}[$array_index]{cols}[$array_num]{data} = $array_ref->[$array_index];
}
}
$template->param(\%loop_data);
print $template->output;
exit;
__DATA__