my @lines = map { chomp; $_; $line_count++; } <$infile>;