my @files;
find ( sub { some_selection_function( \ @files ) }, $dir );

sub some_selection_function {
    my ( $files ) = @_;

    ...

    push @$files, $File::Find::name;
}