while (my $line = < $in_ph > ) {
    chomp $line;
    my@ fields = split(/,/, $line);@
    key = split(/_/, $fields[0]);
    $data[$count][0] = $fields[1];
    foreach(@key) {
        $data[$count][$k + 1] = $key[$k];
        $k++;
    }
    $k = 0;
    $count++;
}


##</code><code>##

my $n = 2033;
my $color = $data[$n][0];
my $order = $data[$n + 1][0];
my $shape = $data[$n + 3][0];
my $name = $data[$n + 4][0];
foreach my $aref(@data[2033..$#data]) {
    if (($aref - $n) % 6267 == 0) {
        $color = $data[$aref][0];
        $order = $data[$aref + 1][0];
        $shape = $data[$aref + 3][0];
        $name = $data[$aref + 4][0];
    }
    print $out_ph1 $predata, ",", $color, ",", $order, ",", $shape, ",", $name, ",";
    foreach(@{
        $aref
    }[4..$#$aref]) {
        print $out_ph1 $_, "\_";
    }
    print $out_ph1 "\n";
}

##</code><code>##

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