Select Code to Download

foreach $try (@text){ 
$try =~/^(.*?)\|(.*?)\|(.*?)\|(.*?)\|(.*?)\|(.*?)\|(.*?)\|(.*?)\|(.*?)
+\|(.*?)\|(.*?)$/gs or die "<br />problem with $try<br />"; 
...
}; 

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

$courselist[0] = ["UM", "CS 34", "Smith", "34"]
$courselist[1] = ["AC", "PHIL 13", "Barry", "45"]
$courselist[2] = ["UM", "BIO 567", "Houlihan", "12"]

$courselist[0] = ["AC", "PHIL 13", "Barry", "45"]
$courselist[1] = ["UM", "BIO 567", "Houlihan", "12"]
$courselist[2] = ["UM", "CS 34", "Smith", "34"]