# 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 ] ) );