my @fileNames;

find(...);

sub wanted {
   ...
   push @fileNames, $fileName;
}