sub foo {
    ...
    return ($x, $y, $z);
}