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