foreach $line(@array) {
  print OFH "<td>$line</td></tr><tr><td>";
}
print OFH "/td></tr></table></body></html>";
close, etc...