A little cleaner looking w/o any extra vars:

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