@ar = grep { -d $_ } @ar;