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