sub a { print }
sub b { local ( $_ ) = @_; goto &a }
b("Hi\n");

##</code><code>##

sub a { print }
sub b { local ( $_ ) = @_; a(@_) }
b("Hi\n");