print OFH "$1"; #### foreach $line(@array) { print OFH "
$line
"; } print OFH "/td>
"; close, etc...