Select Code to Download

my $d=scalar(@b)/3;
for (my $i=0; $i<=$#ddts; $i++) {
...
                print "<table><tr><td>$ddts[$i]</td>$new</tr></table>"
+;
        }
}