my ($Institution, $CourseNumber, $Professor, $Enrollment) = split '|', $try;

##</code><code>##

use warnings;
use strict;

my @courselist;
my @text = 'UM|CS 34|Smith|34';
my $courseindex = 0;

foreach my $try (@text){
    my ($Institution, $CourseNumber, $Professor, $Enrollment) = split '|', $try;
    
    $courseindex = $courseindex + 1;
    $courselist[$courseindex] =
        [$Institution, $CourseNumber, $Professor, $Enrollment];
};

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

##</code><code>##

use warnings;
use strict;

my @courselist;
my @text = 'UM|CS 34|Smith|34';

foreach my $try (@text){
    my ($Institution, $CourseNumber, $Professor, $Enrollment) = split '|', $try;
    
    push @courselist, [$Institution, $CourseNumber, $Professor, $Enrollment];
};

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