push @namelist, keys %{$pupils{$class}};