my @dirs = ("/web/directory/AA", "/web/directory/BB",           "/web/directory/CC");
find(\&search, @dirs);