Select Code to Download

while (my $line = <$handle>)
{
   my ($number, $key1, $dontcare, $country, $key2) = split /:/, $line;
+ # Something to change here
   $result{$key1}{$key2}++;
}
print Dumper(\%result);