$ perl -MO=Concise,-exec -e'$$ref'
1  <0> enter 
2  <;> nextstate(main 1 -e:1) v:{
3  <$> gvsv(*ref) s
4  <1> rv2sv vK/1
5  <@> leave[1 ref] vKP/REFC
-e syntax OK

$ perl -MO=Concise,-exec -e'@$ref'
1  <0> enter 
2  <;> nextstate(main 1 -e:1) v:{
3  <$> gvsv(*ref) s
4  <1> rv2av[t1] vK/1
5  <@> leave[1 ref] vKP/REFC
-e syntax OK

##</code><code>##

sv = SvRV(sv);

##</code><code>##

sv = SvRV(sv);