use strict;
use warnings;
use Data::Dumper;
use File::Slurp;

my $dir = '/path/to/some/dir';
my @folders = grep { -d "$dir/$_" } read_dir($dir);
print Dumper(\@folders);