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