## my @outer; for my $o (0..1){ my @inner = map { { COUNT > $_ } } (5*$o+1) .. (5*$o+5) push @outer, {INNER => \@inner}; } $tmpl->param(OUTER => \@outer);