>perl -MO=Concise,-exec -e"(LIST_EXPR)[INDEX_EXPR]"
1  <0> enter
2  <;> nextstate(main 1 -e:1) v:{
3  <0> pushmark s
4  <$> const[PV "INDEX_EXPR"] s/BARE
5  <0> pushmark s
6  <$> const[PV "LIST_EXPR"] s/BARE
7  <2> lslice vK/2
8  <@> leave[1 ref] vKP/REFC
-e syntax OK