$ perl -MO=Concise -e'@a = (1..3)'
...
-        <1> ex-list lK ->6
3           <0> pushmark s ->4
5           <1> rv2av lKP/1 ->6
4              <$> const[AV ] s ->5
...