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