my $db_results = [
   [qw(one two three)],
   [qw(four five six)],
   [qw(seven eight nine)],
]; 

##</code><code>##

print "<table>\n";
foreach my $row (@$db_results) {
   print "\t<tr>\n";
   foreach my $col (@$row) {
      print "\t\t<td>$col</td>\n";
   }
   print "\t</tr>\n";
}
print "</table>\n"; 

##</code><code>##

<table>
	<tr>
		<td>one</td>
		<td>two</td>
		<td>three</td>
	</tr>
	<tr>
		<td>four</td>
		<td>five</td>
		<td>six</td>
	</tr>
	<tr>
		<td>seven</td>
		<td>eight</td>
		<td>nine</td>
	</tr>
</table>