Select Code to Download

foreach my $region (@regions) {
    # something happening in the loop
}

my $region

foreach $region (@regions) {
    # something happening in the loop
}

my $latest_region;

...
}

print "last region considered was $latest_region\n";