while (!eof(USER1) and !eof(USER2)) {
    my $line1 = <USER1>;
    my $line2 = <USER2>;

    . . .
}