my ($x, $y, undef, $z) = foo();
   # Ignore third value returned