...
$sth->execute;
print "<table>";
while (my @row = $sth->fetcharray) {
  print <<END_OF_TEXT;
  <tr><td>$row[0], $row[1]</td><td>$row[1]</td></tr>
  <tr><td colspan="2">$row[3]</td></tr>
END_OF_TEXT
}
print "</table>";