-foreach my $region (keys %{$mirrors}) {
- printf ("%s %s\n", lc($region), join('|', @{$mirrors->{$region}}));
+my @regions = keys(%$regions_hash);
+
+foreach my $region (@regions) {
+ if (scalar(@{$mirrors->{$region}}) == 0) {
+ printf ("%s %s\n", lc($region), join('|', @{$mirrors->{'DE'}}));
+ } else {
+ printf ("%s %s\n", lc($region), join('|', @{$mirrors->{$region}}));
+ }