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|;
[download]

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>
[download]

though you're probably better off using a module as you will find yourself doing this kind of thing often