filename => "ex_inc2.html",

  path => $ENV{DOCUMENT_ROOT}."/../lib/data/htmltemp/"

);

# Заполняем массив для шаблона list.html

my $items = ();

push(

  @{$items},

  ({"item" => "one"}, {"item" => "two"}, {"item" => "three"})

);

# Организуем обрамляющий массив для <TMPL_LOOP NAME=”first”>

my $list = ();

push(@{$list}, {"item" => $items});

# Ассоциируем значение

$template->param("first" => $list);

# Обнуляем и заполняем массивы заново

$items = ();

push(

  @{$items},

  ({"item" => "раз"}, {"item" => "два"}, {"item" => "три"})

);

$list = ();

push(@{$list}, {"item" => $items});

# Ассоциируем значение

$template->param("second" => $list);

print "Content-type: text/html ";

print $template->output();

__END__

Не так уж и страшно, не так ли? Но обратите внимание на следующий факт. При заполнении конструкции <TMPL_LOOP …> используется не массив, а ссылка на массив. Это важно!

Заключение

Выбирая движок для шаблонов, старайтесь оставить за шаблонами верстку (оформление), а логику – за программой. Не надо перекладывать на шаблоны логику выполнения и ни в коем случае не надо внедрять в шаблоны какие-либо объекты!