foreach my $region (@region_list) {
   ...
}
.
.
.
foreach my $region (@region_list) {
   ...
}