http://www.perlmonks.org?node_id=959375


in reply to Hashes and arrows

%TotCst is a hash whose values are hash references:
my $AppCodeID = $AppCode{$ID}; my $CstTypeID = $CstType{$ID}; my $hash_reference = $TotCst{$AppCodeID}; $hash_reference->{$CstTypeID} += $InvAmnt{$ID};