Are you trying to get a count of how many items there are in @_?
printf("There are %d args.\n", scalar(@_));
If you are confused about the exact meaning of the error message, it's this...
- $#{ ... } can be used to get the last index of an arrayref. It expects the contents of the braces to be an arrayref - i.e. a scalar.
- Thus it imposes a "scalar context" when evaluating the contents of the braces.
- Thus in $#{@_}, a scalar context gets imposed on @_.
- When a scalar context is imposed on an array, it returns the number of items in the array.
- Thus you end up with: $#{ $some_number }, and Perl thinks you're trying to use some number as an arrayref.
- Numbers and strings are pretty much interchangeable, thus you get the error message about not being able to use a string as an arrayref.
I think what you wanted was $#_.
perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'