my @files = grep ( /^[a-z].+\.txt/, readdir($dh));