my $d=scalar(@b)/3;
for (my $i=0; $i<=$#ddts; $i++) {
        for (my $index=0;$index<=($d-1);$index++) {
                my $x=(($#b-1)-$index*3);
                $new="<td><input type=\"$b[$x]\" name=\"$b[$x-1]\"></td>";
                print "<table><tr><td>$ddts[$i]</td>$new</tr></table>";
        }
}