sub f { g(@_); print @_; } sub g { $_[0] .= "o, w"; push @_, "orld\n"; } f($x
= "hell");