...and on top of that, instead of pushing all those table rows into @rows and then printing the whole array, you can be a little bit gentler on your memory by just printing the rows as you go like this:

print FH CGI->start_table;
for(whatever){
  print FH CGI->Tr(CGI->td(...))
}
print FH CGI->end_table;
[download]