Help for this page
my ($Institution, $CourseNumber, $Professor, $Enrollment) = split '|', + $try;
use warnings; use strict; ... }; @courselist = sort { $a->[0] cmp $b->[0] || $a->[1] cmp $b->[1]} @cou +rselist;