my $pupils = \%pupils;

foreach my $nm ( keys %{$pupils->{$class}} ){
   push @namelist, $nm;
}