my @list_of_direcories = grep(-d, <$path/*>);