foreach (@rec) {
   print FH1 "\t <td>". $_ . '</td>';
}