do {
    for (0..N) {
        if ( my $line = <FH>) {
            ...
            do stuff here
            ...
        } else {
            last;
        }
    }
print "$Some_Total";
} until (eof );