Select Code to Download

my $region1;
my $region2;
...
      ...
   }
}

foreach my $region1 (@region_list) {
   foreach my $region2 (@region_list) {
      ...
   }
}

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

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