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