$ perl -MO=Concise,-exec,f -e'sub f :lvalue { $#a }' 2>&1 | grep av2arylen
4  <1> av2arylen sK/1