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);  
}