use CGI ':html'; # functional interface

my @row = qw(one two three four five);

print Tr(td(\@row));

# prints <tr><td>one</td> <td>two</td> <td>three</td> <td>four</td> <td>five</td></tr>