foreach $logFile (@primaryLogFileNames) {
    if (-e "$dupeDir/$logFile") {
      $error = system("$gzipLoc $dupeDir/$logFile");
      if ($error) {
        $priZipDupeMessage .= "error zipping $dupeDir/$logFile\n";
      } else {
        $priZipDupeMessage .= "zipped $dupeDir/$logFile\n";
      }
    } elsif (-e "$dupeDir/$logFile\.gz") {
      $priZipDupeMessage .= "$dupeDir/$logFile already zipped\n";
    }
  }

##</code><code>##

  open(MORELOGS, "$arcLogsUsToo");
  while (<MORELOGS>) {
    $line = $_;
    chomp($line);
    if ($line =~ /^#/) {
      # do nothing
    } else {
      if ($line =~ /(\S+)\s(.+)/) {
        $logPath = $1;
        $logDate = $2;
        $priLogDate{$logPath} = $logDate;
        push(@primaryLogPaths, $logPath);
        push(@primaryLogFileNames, basename($logPath));
        $dupeLogDate{$logPath} = $logDate;
        $logPathWzip = $logPath . ".gz";
        $dupeLogDate{$logPathWzip} = $logDate;
        push(@dupeLogPaths,$logPath);
      }
    }
  }