push(@array0, $general[0]);
push(@array1, $general[1]);
push(@array2, $general[2]);
push(@array3, $general[3]);
push(@array4, $general[4]);
push(@array5, $general[5]);

...

while (@array0) {
   my $shift0 = shift @array0;
   my $shift1 = shift @array1;
   my $shift2 = shift @array2;
   my $shift3 = shift @array3;
   my $shift4 = shift @array4;
   my $shift5 = shift @array5;
   ...
}