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