sort {
    $a->[2] cmp $b->[2] ||
    ($a->[1] || 0) <=> ($b->[1] || 0) ||
    $a->[2] <=> $b->[2] ||
    $a->[3] <=> $b->[3]
}