sub same_sign {
    abs($_[0] + $_[1]) == abs($_[0]) + abs($_[1]);
}