@to_search = qw' /exists /doesnt-exist ';   # master list

find( { wanted => \&wanted, bydepth => 0 }, grep { -d } @to_search);