It doesn't have to be a global. A closure can handle this just fine too.

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

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

    ...

    push @$files, $File::Find::name;
}
[download]