for my $file ( grep /\.txt$/, readdir D )