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";
                }
        }
}