sub same_sign{
  my($left, $right) =@_;
  (0 <=> $left) == (0<=> $right);

}