I think what you are looking for is a AOHOH, but my preference would be to let the database (SQL) do the aggregation and grouping.
The AOHOH would be:
my @db;
$db[$monthNumber]->{ProductName}{RegionName} = $Quantity;
# Loop through Month..
for (0..11){ #Cycle through Months, assuming zero-based
next unless my %prod = %{$db[$_]}; # Any data there ?
print "Some MONTH $_ header here\n";
foreach (sort keys %prod){
my %region = %{$prod{$_}};
# $region{RegionName} now has the qty to be printed
# Hopefully, you get the idea now...
}
}
Needless to say, the code above is untested..
..."I don't know what the facts are but somebody's certainly going to sit down with him and find out what he knows that they may not know, and make sure he knows what they know that he may not know, and that's a good thing. I think it's a very constructive exchange," --Donald Rumsfeld
