Select Code to Download

foreach $item (sort @items) {
        @tmp= split (/!/, $item, 16);
...
        }
}

open (FILE, "student.data");
while (defined ($line = <FILE>)) {
...
        }
}
close (FILE);

$students = [
             [
...
              blah, blah, blah..
             ]
           ];