$i = 1;
print "<tr>";
for ( @images ) {
  print "<td>";
  # print image
  print "</td>"
  print "</tr><tr>" if !$i++%5;
}
print "</tr>";