Or you could try something like this.

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