sub savePurpose
  ...    
  my %hTptPurpose; 
  ...
  return \%hTptPurpose;