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