{
my @values;
my $table;
open (F, "Filename") || die ("Could not open $Filename!");
while (my $line = <F>)
{chomp($line);
push (@values,split(',', $line));}
close (F);

$table .= "<table border=1>";	
for (my $i=1;$i<4;$i++) {
$table .= "<tr>";
for (my $j=1;$j<7;$j++) {
$table .= "<td>$values[$j]</td>";}
$table .= "</tr>";}
$table .= "</table>";}