push @rows,Tr(td([$cell1,$cell2,....$cell6]));

##</code><code>##

 print FH table(@rows)

##</code><code>##

print FH '&lt;TABLE&gt;',@rows,'&lt;/TABLE&gt;';