#Same thing where it seaches all 30 of my directories and web root files
find( \&subsearch, map "$dirs/$_", qw( ./ AA BB ));