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

printEachExpt(@expNames, $outputPath);