ABC_TEK 12 DFE_YJK 24 JKL_GHY 26 LKJ_UYH 29 GHK_YTH 23 GHS_JSF 34 
FHK_THE 25 SHJ_TRE 26 HSJ_TEH 39 AHJ_EGH 56 SGH_HEJ 42 HGE_THE 46 
HEJ_EJJ 67 JLE_EJK 89 EHJ_EJK 78 EHJ_IKL 68 EHJ_EJK 57 EJH_EKL 69 

##</code><code>##

{
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>";}

##</code><code>##

ABC_TEK 12 DFE_YJK 24 JKL_GHY 26 LKJ_UYH 29 GHK_YTH 23 GHS_JSF 34 FHK_THE 25 SHJ_TRE 26 HSJ_TEH 39 AHJ_EGH 56 SGH_HEJ 42 HGE_THE 46 HEJ_EJJ 67 JLE_EJK 89 EHJ_EJK 78 EHJ_IKL 68 EHJ_EJK 57 EJH_EKL 69