sub ST_by_reverse_numeric {
    local ($a, $b);
    $b->[1] <=> $a->[1]
}