open(MORELOGS, "$arcLogsUsToo"); while () { $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); } } }