my $count = keys %class1;

##</code><code>##

my %merged = (%class1, %class2, %class3);
my $count = keys %merged;