- # Output details for each country
- foreach my $origin (sort { $a->{name} cmp $b->{name} } values %$origins)
- {
- my $cluster = $origin->{cluster};
- my $clon = $origin->{lon};
- my $clat = $origin->{lat};
- my $slon = $cluster->{lon};
- my $slat = $cluster->{lat};
+ my $cluster = $origin->{cluster};
+ my $clon = $origin->{lon};
+ my $clat = $origin->{lat};
+ my $slon = $cluster->{lon};
+ my $slat = $cluster->{lat};