int f(int x, int y, int z) { int res; ... return res; }
by using array assignment in Perl
sub f { my ($x, $y, $z) = @_; my $res; ... return $res; }