for my $country_name (keys(%$countries)) {
   my $country = $countries->{$country_name};

   my $provinces = $country->{provinces};

   for my $province_name (keys(%$provinces)) {
      my $province = $provinces->{$province_name};
      ...
   }
}