my @names = grep -d, glob("c:/mainDir/*");

#or even

my @names = grep -d, <c:/mainDir/*>;