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