Select Code to Download

my @column_names = "col1" .. "col3";
my @values  = "val1" .. "val6";
...
    print "<tr>", map("<td>$_->[$i]</td>", @td), "</tr>\n";
}
print "</table>\n";

my @th = "col1" .. "col3";
my @values  = "val1" .. "val6";
...
        "</tr>\n";
}
print "</table>\n";