The "Perlish" way to iterate element-by-element over an array is:

c:\@Work\Perl\monks>perl -wMstrict -le
"my @array = qw(zero one two three);
 ;;
 for my $element (@array) {
   print qq{element '$element'};
   }
"
element 'zero'
element 'one'
element 'two'
element 'three'
[download]

c:\@Work\Perl\monks>perl -wMstrict -le
"my @array = (
   [ 1, 2, 3,    ],
   [ 'v' .. 'z'  ],
   [ qw(one two) ],
   );
 ;;
 for my $arrayref (@array) {
   for my $element (@$arrayref) {
     printf qq{'$element' };
     }
   print '';
   }
"
'1' '2' '3'
'v' 'w' 'x' 'y' 'z'
'one' 'two'
[download]

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!