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

##</code><code>##

push @files, $_;