@sorted = sort {
    $b  <=>  $a
        ||
    $b cmp  $a
} @unsorted_list;