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