my @filenames = map { $_->{'filename'} } @{ $fnames };

##</code><code>##

find( { wanted => sub { push @files, $_ unless $_ eq '.' || $_ eq '..' || $_ !~ m/@filenames$/} , no_chdir => 1 }, @dirs);