Select Code to Download

#! perl -slw
use strict;
...
    for sort keys %sections;

print "\nUnallocated; [@students]";

[16:10:52.01] P:\test>411129 -STUDENTS=50 -SECTIONS=15
Sections: 15
...
Section_14(0) => [ Student_19 Student_28 ]

Unallocated; [Student_04 Student_07 Student_21 Student_35]