my ($a,$b);
while( $a=<F1>, $b= <F2>, $a or $b) {
  ...
}