@a = map {
    $_->[0]
} sort {
    $a->[1] <=> $b->[1]
    ||
    $a->[ 2 ] cmp $b->[ 2 ]
} map {
    [ $_, COMPLEX EXPRESSION ]
} @b;