Select Code to Download

sub has_phrase {
  my ($phrase, @wordlist) = @_;
...

# ... called later
if (has_phrase("foo", @somearray)) { &someaction }

sub has_phrase {
  my ($phrase, @wordlist) = @_;
...

  return;
}