in reply to Splitting an array into multiple HTML table rows

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

[download]

note:  splice eats up the array.

In Section Seekers of Perl Wisdom