That is indeed the right conclusion:

perl -MO=Concise,-exec -e 'print <&>'
1ib <0> enter 
1ic <;> nextstate(main 167 -e:1) v
1id <0> pushmark s
1ie <0> pushmark[t3] s
1if <$> const(PV "&") sM
1ig <$> const(IV 0) sM
1ih <$> gv(*CORE::GLOBAL::glob) s
1ii <1> entersub[t1] lKS/TARG,1
1ij <@> print vK
1ik <@> leave[t1] vKP/REFC
[download]

-- stefp