Select Code to Download

my $total = scalar(keys %class1) + scalar(keys %class2) + scalar(keys 
+%class3);

...

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

my %new = (%class1, %class2, %class3);