Select Code to Download

while (my $line = < $in_ph > ) {
    chomp $line;
...
    $count++;
}

my $n = 2033;
my $color = $data[$n][0];
...
    }
    print $out_ph1 "\n";
}

print $out_ph1 $predata, ",", $color, ",", $order, ",", $shape, ",", $
+name, ",";