my @classrooms; my %classroom = ( classroomID =>'$', classroomName=>'$', students=> \%student, ); my %student = ( studentName => '$', studentSurname=> '$', studentID=> '$', age=> '$', ); #### my $student = ( studentName => 'John', studentSurname=>'Something', studentID=>'9534', age=>'12' ); my $student = ( studentName => 'Mary' ,studentSurname=>'Something2', studentID=>'5489', age=>'13' ); my %classroom = (classroomID => 10, classroomName=>'classroom1'); #### $classrooms[0]->students[0]->studentName