open my $datei, '<', "dateiname" or die ...
scalar <$datei>; # remove first line
while (my @zeilen = teil_aus_datei($datei, 10)) {
    #hier hat @zeilen dann maximal 10 Zeilen (oder weniger am Dateiende)
    #verarbeite die @zeilen
}

#mit folgender sub:
sub teil_aus_datei {
    my ($fh, $max) = @_;
    my @result;
    while (<$fh>) {
        push @result, $_;
        last if @result == $max;
    }
    return @result;
}