Select Code to Download

my @a = qw(1 2 3);
my @b = qw(4 5 6);
...
    print $_ for @{ $aref };
    print "\n";
}

123
456
789

my %hash = ( a => 1, b => 2, c => 3 );
print "$hash{ a }, $hash{ b }, $hash{ c }\n";

#output: 1, 2, 3

# define the list of students per each class

...
# the reference)

my @students = @{ $school{ room2 } };