@sorted = sort {
    $b->[2] cmp $a->[2]
             ||
    $a->[1] <=> $b->[1]
} @array