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