my $row = -1;
for my $i (0..$#files) {
  my $modulo = $i % $width;
  $row++ if 0 == $modulo; # start a new row

  $images[$row]->{schleifeY}->[$modulo]->{inhalt} = $files[$i];
} # for