$ perl -MO=Concise,-exec -e'  $x=$#a        ' 2>&1 | grep av2arylen
5  <1> av2arylen sK/1

$ perl -MO=Concise,-exec -e'  $#a=$x        ' 2>&1 | grep av2arylen
6  <1> av2arylen sKRM*/1

$ perl -MO=Concise,-exec -e'  foo($#a)      ' 2>&1 | grep av2arylen
6  <1> av2arylen sKM/1

$ perl -MO=Concise,-exec -e'  \$#a          ' 2>&1 | grep av2arylen
5  <1> av2arylen sKRM/1

$ perl -MO=Concise,-exec -e'  1 for $#a     ' 2>&1 | grep av2arylen
7  <1> av2arylen sKM/1

$ perl -MO=Concise,-exec -e'  1 for 0..$#a  ' 2>&1 | grep av2arylen
8  <1> av2arylen sK/1