#!/usr/bin/perl

use HTML::Template;

my $template = HTML::Template->new(filehandle => *DATA);

$template->param(title=>"Foo");

@filenames = ([qw(foo bar baz)],
              [qw(Ein Zwei Drei)],
              [qw(beer pizza caffeine)],
              [qw(Vader Sidious Maul Tyrranos)]
             );
$template->param(dir_loop => [{dir => "Dir1",
                               outter_file_loop => 
                                 [
                                  {inner_file_loop => [map {filename=>$_}, @{$filenames[0]}]},
                                  {inner_file_loop => [map {filename=>$_}, @{$filenames[1]}]},
                                 ]
                              },
                              {dir => "Dir2",
                               outter_file_loop => 
                                 [
                                  {inner_file_loop => [map {filename=>$_}, @{$filenames[2]} ] },
                                  {inner_file_loop => [map {filename=>$_}, @{$filenames[3]} ] },
                                 ]
                              },
                             ]);

print $template->output;
__DATA__
# original template here