my @StatsArray;
push @{$StatsArray[$RegionNum]}, {
  AR  => $AR[$RegionNum],
  BCR => $BCR[$RegionNum],
};

##</code><code>##

my %Stats;
push @{$Stats{$RegionNum}}, {
  ...
};

##</code><code>##

my @sorted = sort { $a->{AR} <=> $b->{AR} } @{ $StatsArray[$RegionNum] };