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