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