in reply to readline() on unopened filehandle

Because $FH isn't a file handle - FILE is.

But beside that, you have more problems. You're not checking the return value of 'open', the file might not open. Furthermove, if you do: 

     while ((my $line_B = <FILE>)) {
         last OUTER unless defined ($line_B = <FILE>)

[download]
you will be skipping every odd line.
Perl --((8:>*

Replies are listed 'Best First'.
Re^2: readline() on unopened filehandle
by Win (Acolyte) on Oct 07, 2005 at 13:44 UTC
    Why would I be skipping every odd line?
[reply]
      Because you read a line in the while, and then discard that line, and read the next line in your unless statement.
      Perl --((8:>*
[reply]
      A reply falls below the community's threshold of quality. You may see it by logging in.

In Section Seekers of Perl Wisdom