# Building the array of terms:

my @terms = ();
while (my $term = <F1>) {
    chomp $term;
    push @terms, $term;
}