use strictures;
use Template;

my $stuff = [ { 'filenameLarge' => [ 'fIyvYwJWmstR.jpg',
                                     'koeSHYEaekfv.jpg',
                                     'CtDKXyiRXhWz.jpg' ],
                'title' => 'February event (Feb 2013)',
                'bookid' => 8 } ];

my $tt = Template->new;
$tt->process(\*DATA, { fotos => $stuff })
    || die $tt->error(), "\n";

__DATA__
[%-FOR e IN fotos %]
   [%-e.title %]
   [%-FOR i IN e.filenameLarge %]
     <img src="/photo/[% e.bookid %]/tn/[% i %]" />
   [%-END %]
[%-END %]