my ($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) = ('') x 17;