Select Code to Download

.....
print "<tr><td$idold[$i]</td<td><input type=textbox name=\"typeold\" >
+</td></tr>";
....
print "<tr><td$idnew[$n]</td<td><input type=textbox name=\"typenew\" >
+</td></tr>";
......

my @idnew=param ('idnew');
my @idold=param ('idold');
...
{
print "<h2>New$idold[$io]/$typeold[$io]</h2>";
}