my @filtered = grep { -d $_ } @ar;
# or
my @filtered = grep -d $_, @ar;