chdir("../../pics");

my(@bilder,@ergebnisse);

push (@bilder, glob "*.jpg");
push (@bilder, glob "*.gif");

foreach my $bild(@bilder){

   my %hash = (
    schleifeX =>
     [
       { schleifeY => [ {inhalt => '$bild'} ] },
       
     ]

     
     );
   push(@ergebnisse,\%hash);
}

$template->param(schleifeX => \@ergebnisse);