Select Code to Download

my @array1 = ( 1, 2, 3, 4 );
my @array2 = ( 5, 6, 7, 9 );

...
   my ( $first, $second ) = @_;
   print "@$first @$second\n";
}

sub printEachExpt {
   my ( $expNames, $outputPath ) = @_;
   my $total = @$expNames;
...
   }
   return( $expNames, $outputPath);  
}