my $c2 = @column_names;

for (my $i=0; $i<@column_names;$i++)    {
        print qq(<tr><td>$column_names[$i]</td>);
}
                                                                                                                                                              
for (my $i=0; $i<@values; $i+=$c2)  {
        print "<td>$values[$i]</td>\n";
}
print qq(<tr>);