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