while (1) {
   my $a = <F1> or last;
   my $b = <F2> or last;
   # use $a and $b here
}