my ($x, $y, $z) = f(); #### my ($x, $y, $z) = @_;