while (defined ($line1 = <F1>) and defined ($line2 = <F2>)) {
   ...
}