foreach $item (sort @items) {
        @tmp= split (/!/, $item, 16);
        push (@test, @tmp);
        push @AoA, [ @tmp ];
}


print "\n";
# Print the whole thing, one at a time.
print "COMP7650 :\n";
print "_____________________\n";

for $i (0..$#AoA) {
print "$class{$AoA[$i][0]} \n\t $student{$AoA[$i][0]}\n";
        for $j (0..$#{ $AoA[$i] }) {
                if ($j eq 1) {
                        print "\t\t\t- $AoA[$i][1]\n";
                }
        }
}


##</code><code>##

open (FILE, "student.data");
while (defined ($line = <FILE>)) {
        if ($line =~ /^(.*)!(.*)!(.*)!(.*)$/) {
                $id{$1}      = $1;   #id's
                $student{$1} = $2;
                $major{$1}   = $3;
                $status{$1}  = $4;
        }
}
close (FILE);

##</code><code>##

$students = [
             [
              '45623456',
              'COMP8769',
              'A',
              'Dr.Smith',
              'MWF',
              '10:00',
             ],
             [
              blah, blah, blah..
             ]
           ];