shift on an array of arrays

[Will Muir]

Hi all,

I have an array of arrays @data that I would like to take the reference of the 5th 
element of the first 3 elements and put them into another array and then shorten @data 
by 3.  I hope that this makes sense, I am new to this and don't really know a better 
way too explain it.  Here is what I have so far.  


     my $t=0;
     my$value=4;
     my @n;
     my @tmp;
 
     #start a loop for every row
     for(my $i=0; $i<$#data; $i++){
          #build an array @n with $t values in it
          for (my $j=0; $j<$t; $j++){
               $tmp[$j]=$data[$j][$value];
               shift @data;
               print @tmp;
          }
     }

When I run this, nothing happen.  I also ran it with the -d flag and when I evaluate 
@tmp it tells me that it is an empty array.  Any help would be much appreciated.

Thanks,
Will