Are you using CGI.pm?

use CGI:

foreach $i (@data){
  print Tr([
     td([$i,"column2"])
  ]);
}
[download]

Neil Watson
watson-wilson.ca