while my $term (<F1>) {