in reply to Trouble getting size of list returned from sub

$ perl -E 'sub foo { qw(a b c d) } say $#{[foo()]} + 1'

In Section Seekers of Perl Wisdom