my @idnew=param ('idnew');
my @idold=param ('idold');
my @typenew=param ('typenew');
my @typeold=param ('typeold');
for (my $eu=0;$eu<=(scalar(@idnew)/2-1);$eu++)
{
print "<h2>New$idnew[$eu]/$typenew[$eu]</h2>";
}
for (my $io=0;$io<=(scalar(@idold)/2-1);$io++)
{
print "<h2>New$idold[$io]/$typeold[$io]</h2>";
}