my @countries = map {
    chomp;
    my($isocode, $name) = unpack "A2xA*", $_;
    Country->new($name, $isocode)
  } <DATA>;
  __DATA__
  AD ANDORRA
  AE UNITED ARAB EMIRATES
  AF AFGHANISTAN
  AG ANTIGUA AND BARBUDA
  ...