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

##</code><code>##

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