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

printArrays( \@array1, \@array2 );

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

##</code><code>##

sub printEachExpt {
   my ( $expNames, $outputPath ) = @_;
   my $total = @$expNames;
 
   print "The output path is $outputPath.\n"; 
   print "The experiment files are:\n";
   for ( 0 .. $#$expNames ) {
      print "$outputPath/$expNames->[$n]\n";
   }
   return( $expNames, $outputPath);  
}