chomp( my @lines = <$infile> );

##</code><code>##

use File::Slurp;
my @lines = read_file( $infile, chomp => 1 );

##</code><code>##

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

##</code><code>##

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