while my $term (<F1>) {

##</code><code>##

while ( my $term = <F1> ) {

##</code><code>##

foreach my $source (<F2>) {

##</code><code>##

while ( my $source = <F2> ) {