print table(map tr(map td($_), qw/foo bar baz/), 1..10)

##</code><code>##

sub table (&) { print "<table>\n"; shift->(); print "</table>\n"; }
sub row (&) { print "<tr>"; shift->(); print "</tr>\n"; }
sub cell { print "<td>$_</td>" for @_; }

table {
    for (1..10) {
        row {
            cell "foo", "bar", "baz"
        }
    }
};

table { row { cell @$_ } for $db->query('SELECT * FROM foo')->arrays };