Select Code to Download

sub debug{
   print @_;
}

my %__privateIndexHash; #key = country read, value is allways 1
my @CountryList;
...
       push @CountryList, $country;
   }
}

my @CountryList;
Build_Country_List($){
   my $country=shift;
   push @CountryList, $country unless grep { $_ eq $country} @CountryL
+ist;
}

my $total;
sub Build_totals_shares_for_sedol_Sell_side($$$) {
...
    $total += $_ foreach values %Sellhash;
  }
}