while (my @row_array = $sth->fetchrow_array()) {
print <<EOF;
    <tbody>
      <tr>
         <td> $row_array[0] </td>
         <td> $row_array[1] </td>
         <td> $row_array[2] </td>
   ...
      </tr>
     </tbody>
EOF
}