Thank you so much! I now understand what I was doing wrong. Got it to work with the following piece of code

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

Thank you monks!