my @n = grep { -d $_ } <*>;