Another common way to code the while loop:

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

do we have some perl code checker available for us to validate scripts / modules ?

• warnings
• perlcritic can in some instances identify bugs, but is mostly for coding style