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