in reply to [Solved] Pick a single item from a sub's return list

You have to make a list from the result which you then can index, you can't index the call (or the call's parameter list). Try:

say+(givelist())[1];

The + after say is there just to disambiguate the list-parens from function-call-parens.

perl -le'print map{pack c,($-++?1:13)+ord}split//,ESEL'