$joined_name = join ("", split " ", $temp_dcr{$dcr_name}{PromotionName});

$temp_dcr{$dcr_name}{PromotionName} = $joined_name;