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