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

##</code><code>##

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