sub f { my $x = shift; *z = $x; } f({}); f();