You haven't used JavaFan's example properly, look at it again.
If you want to print a table using the same data structure, you could do:
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|;
I use qq|| to quote the string to avoid problems with border="1"
Prints:
<table border="1">
<tr><td>A</td><td>B</td></tr>
<tr><td>C</td><td>D</td></tr>
</table>
though you're probably better off using a module as you will find yourself doing this kind of thing often
|