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