use CGI:

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