open INPUT, "input.txt" or die "Can't open input.txt: $!\n";
print '<table>';
while (<INPUT>) {
    @words=split /\s+/;
    printf "<tr><td>%s</td><td><input type=\"%s\" name=\"%s\"></td></tr>", $words[0], $words[1], $words[0];
}
print '</table>';
close INPUT;