foreach (keys(%class1),keys(%class2),keys(%class3)) {
  $tot{$_}=1;
}
$t=scalar(keys(%tot));