while (my $line2 = ) {