while ($line1 =<F1> || $line2= <F2>){
  foo($line1,$line2);
} 

##</code><code>##

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