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);
qw(($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) = ();