Select Code to Download

if ((my ($x, $y) = mysub ($args))[0]) {

my ($x, $y);
if ((($x, $y) = mysub ($args)) != 1 || !defined($x) || length($x) != 1
+ || $x != 0) {
...
else {  # Triggered on a single 0
   do other stuff
}