Help for this page
while my $term (<F1>) {
while ( my $term = <F1> ) {
foreach my $source (<F2>) {
while ( my $source = <F2> ) {