sub test_num {
    return $_[0] <=> $_[1];
};