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>##

# note that passing an array reference to Tr() creates a set of <TR> blocks, one per element of the referenced array
print table( Tr( [ map { td( $_ ) } @$db_results ] ) );

##</code><code>##

# need '*table' and '*Tr' in order to use start_table() and start_Tr()
use CGI qw( :standard *table *Tr );

# ...

# note the map() calls each represent a nested for() loop
# and further that passing an array reference to td() creates a set of <TD> blocks, one per element of the referenced array
print join( "\n", start_table,
                  start_Tr,
                  (map { map { td($_) } @$_ } @$db_results),
                  end_Tr,
                  end_table ), "\n";