my @dots = grep { ! /^\./} readdir(DIR);