my %txt;
my @field = qw(
    AnniversaryDate
    BirthDate
    EmailAddr
    FaxNo
    MobileNo
    ...
);

@txt{@field} = ('') x @field;