get; 

while(get_next())    #erstmal in nen array
   push(@a,"<td><img scr=\"/files/$Bild\"><br>$Name</td>");
while(@a % 4 != 0)      #solange nicht glatt durch 4 teilbar auffüllen
   push(@a,"<td>&nbsp;</td>");
for(my $i = 0; $i < @a; $i+=4)   #und nun in 4er Blöcken ausgeben
   out "<tr>".join("",@a[i..i+3])."</tr>\n"