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";
}