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