my $more_to_read = 1;
while($more_to_read){
  $more_to_read = 0 if(eof(F1) && eof(F2));
  my $f1 = <F1>;
  my $f2 = <F2>;
  #some processing here
}