package RegionRecords;

my %regionNums;
my @all_regions;
my $N = 0;

sub add {
    my ( $record ) = @_;
    if ( ! exists $regionNums{$record->{RegionNum} }) {
         $regionNums{$record->{RegionNum} } = $N;
         $all_regions[$N] = [];
         $N++;
    }
    push $all_regions->[$regionNums{$record->{RegionNum} }], $record;
}
1;

package main;
RegionRecord::add( {RegionNum=>$RegionNum,
                    AR=>$AR[$RegionNum],
                    BCR=>$BCR[$RegionNum]} 
                 );

print RegionRecord::allRecords();