while ( my $test1, $test2 ) = (scalar <$fh1> // (), scalar <$fh2> // () ) {
    ...
}