~$ perl -MO=Concise -e '($a,$b)=($b,$a)'
a  <@> leave[1 ref] vKP/REFC ->(end)
1     <0> enter ->2
2     <;> nextstate(main 1 -e:1) v:{ ->3
9     <2> aassign[t5] vKS/COMMON ->a
-        <1> ex-list lKP ->6
3           <0> pushmark s ->4
-           <1> ex-rv2sv sK/1 ->5
4              <#> gvsv[*b] s ->5
-           <1> ex-rv2sv sK/1 ->-
5              <#> gvsv[*a] s ->6
-        <1> ex-list lKPRM* ->9
6           <0> pushmark sRM* ->7
-           <1> ex-rv2sv sKRM*/1 ->8
7              <#> gvsv[*a] s ->8
-           <1> ex-rv2sv sKRM*/1 ->-
8              <#> gvsv[*b] s ->9
-e syntax OK