I found that this way, it works:

my @filenames = map { $_->{'filename'} } @{ $fnames };
my $rx_fnames = join '|', @filenames;
 find( { wanted => sub { push @files, $_ unless $_ eq '.' || $_ eq '..
+' || $_ !~ m/$rx_fnames$/} , no_chdir => 1 }, @dirs);
[download]

Any feed back is welcome!