Or use map in void context, which as of Perl 5.8.1 is no longer "costly" (inefficient). As of v5.8.1, map in void context doesn't create a list that just gets thrown away. Hense:

map { $_ = "" } ($txt_AnniversaryDate, $txt_BithDate, 
                 $txt_EmailAddr, $txt_FaxNo, $txt_MobileNo,
                 $txt_Name, $txt_PhoneNo, $txt_PhysicalAddress,
                 $txt_PhysicalCode, $txt_PhysicalCountry, 
                 $txt_PhysicalTown, $txt_PostalAddress,
                 $txt_PostalCode, $txt_PostalCountry, 
                 $txt_PostalTown, $txt_Sex, $txt_Surname );
[download]

Anything but pretty.