чтение кусками

по нескольку строк за раз:

open F,"file" or die $!;
while (my @ary = map { <F> } 1..5) {
    # process @ary
}
close F;

( пример )