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