Select Code to Download

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

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

<table>
    <tr>
...
        <td>nine</td>
    </tr>
</table>