Select Code to Download

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

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