my @filtered = map { -d $_ ? $_ : () } @ar;