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

##</code><code>##

print "Number of lines read: ", 1+$#lines, "\n";
for my $i (0..$#lines) {
  print "line $i is: $lines[$i]\n";
}