my $dirs = '/directory/subdirectory/webstuff';

find( \&findstuff, map "$dirs/$_", qw(aa bb cc dd ee ff gg hh jj kk ll)); 

##</code><code>##

my $dirs = '/directory/subdirectory/webstuff';

find( \&findstuff, map "$dirs/$_", qw(!zz));