Select Code to Download

for (my $i = 0; $i < scalar @arr1; ++$i)
{
...

  # do main processing on @garr here.
}

for (my $i = 0; $i < scalar @arr1; ++$i)
{
  @{$garr[$i]} = ( shift(@$arr1[$i]), shift(@$arr2[$i]) );
}