my @files = find(\&some_selection_function, $dir);