while (!eof(FILE1) && !eof(FILE2)) {
    my $line1 = <FILE1>;
    my $line2 = <FILE2>;
    ...