Help for this page
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, ",";