% layout 'default', metakeywords => 'fotos, interior, exterior, banheiro, quarto, natureza, cachoeira, serra, tranquilo, vista, cozinha, cama, sofa', metadescription => 'Galeria de fotos mostrando o Interior da Casa e o Sítio'; %foreach my $name (keys %{$thumbs}){ %for(my $i=0; $i{$name}}); $i++){ %my $index = sprintf("%03d",$i+1); %my $prev = sprintf("%03d",$i); if($prev==0){ $prev = sprintf("%03d",scalar(@{$thumbs->{$name}})); } %my $next = sprintf("%03d",$i+2); if($next==scalar(@{$thumbs->{$name}})+1){ $next = '001'; } <%=$fotos->{$name}->[$i]->{caption}%> %} %}