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