http://www.perlmonks.org?node_id=1166399


in reply to Open() : Not reading all lines in my text file

You're only opening the file handle. 
  open my $fp, "<", $titlefile or die "Can't open <$titlefile: $!";
  my @lines = <$fp>;
  # now iterate over @lines

[download]

In Section Seekers of Perl Wisdom