I believe that mpolo actually wants to lose the duplicates, since his intention is to count the total number of countries representated between employee classes.

Also, you can rewrite:

my $totb = 0;
$totb += $_ for map { scalar keys %$_; } (\%class1, \%class2, \%class3
+);
[download]

as the following:

my $totb = 0;
$totb += keys %$_ for \(%class1, %class2, %class3);
[download]

No need to iterate twice.

   MeowChow                                   
               s aamecha.s a..a\u$&owag.print