...
while (defined(my $line2 = $INFO)) {
...

##</code><code>##

...
while (defined(my $line2 = <$INFO>)) {
...