You can write:

{ # enclosing scope
  my @found_files;

  sub criteria {
    # do the right thing
  }
}

find(\&criteria,$dir);
[download]

Of course, now you have to decide how large a part of your script needs access to the @found_files variable.

-- 
        dakkar - Mobilis in mobile