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