find(\&search, $dirs, $dirs2, $dirs3);

##</code><code>##

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

##</code><code>##

my @dirs = map "/web/directory/$_", 'AA', 'BB', 'CC';

##</code><code>##

find(\&search, map "/web/directory/$_", 'AA', 'BB', 'CC');