my @entries = grep { /^\.+$/ } readdir(DH);