sub print_row {
            print"<TR>";
            print"<TD>$_</TD>" for @_;
            print"</TR>\n";
        }

##</code><code>##

print TR( td( \@_ ) );

##</code><code>##

my @rows;
for ( blah blah ) {
    ...
    push( @rows, TR( td( \@_ ) );
}
print table( @rows );