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};
|
---|
In Section
Seekers of Perl Wisdom