No, not if you include the parens.

$ perl -le'sub foo { print 0+@_ } @_=1..4; &foo; &foo();'
4
0
[download]