while(<$fh1>){
  $countries{$_}++;
}