find( { wanted => \&print_if_dir, }, @dirs);

# or

find( { wanted => sub { print if -d }, }, @dirs);