$ perl -MO=Concise -we'@r = reverse @r'
c  <@> leave[1 ref] vKP/REFC ->(end)
1     <0> enter ->2
2     <;> nextstate(main 1 -e:1) v ->3
b     <2> aassign[t6] vKS/COMMON ->c
-        <1> ex-list lK ->8
3           <0> pushmark s ->4
7           <@> reverse[t5] lK/1 ->8
4              <0> pushmark s ->5
6              <1> rv2av[t4] lK/1 ->7
5                 <#> gv[*r] s ->6
-        <1> ex-list lK ->b
8           <0> pushmark s ->9
a           <1> rv2av[t2] lKRM*/1 ->b
9              <#> gv[*r] s ->a
-e syntax OK

$ perl -MO=Concise -we'my @r; @r = reverse @r'
c  <@> leave[1 ref] vKP/REFC ->(end)
1     <0> enter ->2
2     <;> nextstate(main 1 -e:1) v ->3
3     <0> padav[@r:1,2] vM/LVINTRO ->4
4     <;> nextstate(main 2 -e:1) v ->5
b     <2> aassign[t3] vKS/COMMON ->c
-        <1> ex-list lK ->9
5           <0> pushmark s ->6
8           <@> reverse[t2] lK/1 ->9
6              <0> pushmark s ->7
7              <0> padav[@r:1,2] l ->8
-        <1> ex-list lK ->b
9           <0> pushmark s ->a
a           <0> padav[@r:1,2] lRM* ->b
-e syntax OK