Select Code to Download

#!/usr/bin/perl
use warnings;
...

my @sorted_keys = sort { $country_names{$a} cmp $country_names{$b} } k
+eys %country_names;
print join("\n",@sorted_keys);