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