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

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