if (my ($x, $y) = mysub ($args)) { #returned defined pairs
   do stuff... 
} else { #returned single zero.
   do other stuff...
}