chomp (my @dir = `ls $path`);

##</code><code>##

my @list_of_directories = grep { -d "$path/$this_entry" } @dir;