Select Code to Download

sub in {
  my ($coderef)= shift(@_);
...

  for ( @vals ) { $coderef->($match) if /$match/ }
}

sub in {
  my ($coderef)= shift(@_);
...
    $dispatch->($match);
  }
}

#!/usr/bin/perl

...

in_list($code, 'Dick', @pals);      # Hello Dick!
in_list($code, 'Rover', @pals);     # no output