while (my $a = <F1>) {
     my $b = <F2>;
     # do something with $a and $b
}