use strict;
use Data::Dumper;

opendir my $dir, "." or die "Cannot open dir: $!";
my @d = grep { -d $_ } readdir($dir);
close $dir;

warn Dumper \@d;