Maybe you need something like this:

print "<table><thead><tr><th>Slave_IO_State</th><th>Master_host</th><t
+h>Slave_IO_Running</th><th>Slave_SQL_Running</th></tr></thead><tbody>
+";
while ( my @val = $mas_hos->fetchrow_array() ) {

    print "<tr><td>$val[0]</td>";
    print "<td>$val[1]</td>";
    print "<td>$val[10]</td>";
    print "<td>$val[11]</td>";
    #print "<td>$val[33]</td>";
    print "</tr>\n"
}
print "</tbody></table>\n";
[download]