Select Code to Download

foreach (@array0,@array1,@array2,@array3,@array4,@array5) {
@shift0 = shift @array0;
...
@shift5 = shift @array5;
...
}

push(@array0, $general[0]);
push(@array1, $general[1]);
...
   my $shift5 = shift @array5;
   ...
}

push(@array, [ @general ]);

...
   my ($shift0, $shift1, $shift2, $shift4, $shift5) = @$general;
   ...
}