Select Code to Download

use Data::Dumper;
my @array = ();
...
$array[2] = [2];
@array = sort { $$a[0] cmp $$b[0]} @array;
print Dumper \@array;

use strict;
use warnings;
...

@courselist = sort {$$a[0] cmp $$b[0] or $$a[1] cmp $$b[1]} @courselis
+t;
print Dumper(\@courselist);