I believe find accepts a list of directories as argument:

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

You can get fancy by doing:

my $dir = '/web/directory';
my @subdirs= qw( AA BB CC);
my @dirs= map { "$dir/$_"} @subdirs;
find(\&search, @dirs);
[download]