{ # enclosing scope
  my @found_files;

  sub criteria {
    # do the right thing
  }
}

find(\&criteria,$dir);