foreach $try (@text){ 
$try =~/^(.*?)\|(.*?)\|(.*?)\|(.*?)\|(.*?)\|(.*?)\|(.*?)\|(.*?)\|(.*?)\|(.*?)\|(.*?)$/gs or die "<br />problem with $try<br />"; 
my $Institution = $1; 
my $CourseNumber = $2;
my $Professor = $3;
my $Enrollment = $4; 
........  
if (!$CourseNumber && !$Institution){last;};
if ($CourseNumber ne $LastCourseNumber){	
$courseindex = $courseindex + 1;
$courselist[$courseindex] = [$Institution, $CourseNumber, $Professor, $CourseTitle, $Enrollment];
};
$LastCourseNumber = $CourseNumber; 
}; 

@courselist =  sort { $a->[0] cmp $b->[0] || $a->[1] cmp $b->[1] } @courselist;