my $parse_next_line = sub {
        my $line = shift @lines;
        ...
    };
    $parse_next_line->() while @lines;

##</code><code>##

    foreach my $line (@lines) {
        ...
    }