while (defined(my $f1 = <F1>) && defined(my $f2 = <F2>)) {
   ...
}