sub getExpNumber {
 my ($filePath) = @_;
 my ($n) = 0;
 
 open (INPUT, $filePath) or die "Can't open $filePath: $!\n";
 while (<INPUT>) {
  chomp;
  if (<INPUT> =~ /^Experiment Name/) {
   print "There are $n experiments in $filePath: $!\n";
  } elsif (<INPUT> =~ /^Algorithm/) {
   $n++;
   next;
  } else {
   next;
  }
 close(INPUT) or die "Can't close $filePath.$!\n";
 }
return $n; 
}