my %txt = map { $_ => '' }
          qw{AnniversaryDate BirthDate EmailAddr
             FaxNo MobileMo
             ...
            };