use constant MAX_COLS => 4;
use constant MAX_ROWS => 5;

my $col = 0;
my $row = 0;
print("<table>");
foreach my $image (@images) {
   print("<tr>") if !$col;
   print("<td>");

   print(...);

   if (++$col == MAX_COLS) {
      $col = 0;
      if (++$row == MAX_ROWS) {
         last;
      }
   }
}
print("</table>");