open(my $INFILE, ...) or die "unable to open file: $!\n";
chomp(my @lines = <$INFILE>);
close($INFILE);