my @sorted_keys = sort { $country_names{$a} cmp $country_names{$b} } keys %country_names;