foreach my $source (<F2>) {