Select Code to Download

#!/usr/bin/env perl -l

...
 
print 'The whole school:';
print Dumper \@classrooms;

Name of 1st student in 1st classroom: John
The whole school:
...
            'classroomID' => 10
          }
        ];