while (my @lines = grep defined, (scalar <FILE1>, scalar <FILE2>)) {
    print RESULT @lines;
}