my %divisionsHash;
my %regionsHash;
my %hashes = (divisions=>\%divisionsHash, regions=>\%regionsHash);

# Access it ala:
$hashes{'regions'}{'North America'};
$hashes{'divisions'}{'Finance'};