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 %]
[%-END %]
[%-END %]
####
February event (Feb 2013)