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

For stuff like this, I so love using the stuff in CGI.pm. It's so slick to be able to say

print TR( td( \@_ ) );
[download]

Or, if I want to build a table at once, do:

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

xoxo,
Andy

%_=split/;/,".;;n;u;e;ot;t;her;c; ".   #   Andy Lester
'Perl ;@; a;a;j;m;er;y;t;p;n;d;s;o;'.  #   http://petdance.com
"hack";print map delete$_{$_},split//,q<   andy@petdance.com   >