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

my %country_names = (
     "AF" => "Afghanistan",
     "AX" => "Aland Islands",
     "AL" => "Albania",
     "DZ" => "Algeria",
     "AS" => "American Samoa",
     "AD" => "Andorra",
     "AO" => "Angola",
     "AI" => "Anguilla",
     "AQ" => "Antarctica",
     "AG" => "Antigua And Barbuda",
     "AR" => "Argentina",
     "AM" => "Armenia",
     "AW" => "Aruba",
     "AU" => "Australia",
     "AT" => "Austria",
     "AZ" => "Azerbaijan",
     "BS" => "Bahamas",
     "BH" => "Bahrain",
     "BD" => "Bangladesh",
     "BB" => "Barbados",
     "ZZ" => "AAAAAAA"            
);

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