>perl -E"sub g { say +(caller 0)[4]?'':'no ', 'new @_; ', 0+@_, ' args: ', @_ }  sub f { g(@_) }  f('abc');"
new @_; 1 args: abc

>perl -E"sub g { say +(caller 0)[4]?'':'no ', 'new @_; ', 0+@_, ' args: ', @_ }  sub f { &g }  f('abc');"
no new @_; 1 args: abc