$ perl -le'sub foo { print 0+@_ } @_=1..4; &foo; &foo();' 4 0 [download]
In reply to Re^3: private sub routine by ikegami in thread private sub routine by saranperl