Add multiple values to Perl / JSON object
I'm sure there is a "shortcut" to this problem - which I thought I'd solved, but which now doesn't work. Suggestions please. Having decoded the JSON object to "$codes", this works: $codes->{"product"}->{"ad_id"}->{"$ad_id"}->{"singlePay"}=$singlePayments; $codes->{"product"}->{"ad_id"}->{"$ad_id"}->{"trialPay"}=$trialPayments; $codes->{"product"}->{"ad_id"}->{"$ad_id"}->{"subsPay"}=$subsPayments; but it is somewhat repetative to…