my $volume_name = "/Volumes/Volume Name/";

for (glob "$volume_name/*") {
    if (-d) {
        say $_;
        find(\&wanted, $_);
    }
}

##</code><code>##

find \&wanted, grep -d, glob '/Volumes/Volume Name/*';