use strict;
use warnings;
use Template;

my %vars;
$vars{list} = [ qw/apple pear cherry orange kiwi banana lemon lime /];
$vars{cols} = 3;
$vars{end} = $#{$vars{list}};
print "$vars{end}\n";

#### TEMPLATE INLINE FOR EXAMPLE
my $template = qq|
    <table>
        [% cnt = 0 %]
        [% FOREACH item = list %]
            [% IF !(cnt % cols) %]<tr>[% END %]
            <td>[% item %]</td>
            [% IF ((cnt % cols) == (cols - 1) or (cnt == end))  %]</tr>[% END %]
            [% cnt = cnt + 1 %]
        [% END %]
    </table>
|; 
my $tt = Template->new();
$tt->process(\$template,\%vars) || die "Template process failed: ", $tt->error(), "\n";