my @subdirs = grep { /^\.\.?\z/ } readdir($dh);