open(LOG_READ,"cat $InLogFilePath|tail -n +$InStartLineNumber|") || die "can not open file :$!"; my @all_lines = ; close (LOG_READ); for (@all_lines) {.. }