open(FILE, filename1);
@LINES = <FILE>;
close(FILE);
open(FILE2, filename2);
@LINES2 = <FILE2>;
close(FILE2);

for $i (n .. p) {
    $LINES[$i] = $LINES2[$i];
}