sub naechstes_paeckchen {
    my $breakpoint = 10;

    for (1..$breakpoint) {
        my $line = <CSV>;
        break unless defined $line;
        ...
    }
}