while (my $currentLine = ) {