Select Code to Download

my @words = get_words_to_check();

my %hash = map { $_ => 1 } @words;
...

my @good_words = grep { exists $hash{$_} } @words; # Keep the original
+ order
my @good_words_2 = keys %hash; # Don't care about the original order

my $index = 0;
LINE: while (my $line = <>)
{
...
    last LINE if ++$index == @words;
  }
}