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