foreach my $region(%$data) {