while (<DATA>) {
  chomp;
  $country_hash{substr($_,0,2)} = substr($_,3);
}