print qq|<table border="1">\n|;
foreach my $line (@data) {
	print qq|<tr>|;
	print qq|<td>$_</td>| for @$line;
	print qq|</tr>\n|;
}
print qq|</table>\n|;

##</code><code>##

<table border="1">
<tr><td>A</td><td>B</td></tr>
<tr><td>C</td><td>D</td></tr>
</table>