print "<tr><td>",
      join ("</td><td>", splice (@array, 0, NUM_COL) ),
      "</td></tr>\n" while @array;