>perl -MO=Concise -e"local $x = $y
6  <@> leave[1 ref] vKP/REFC ->(end)
1     <0> enter ->2
2     <;> nextstate(main 1 -e:1) v ->3
5     <2> sassign vKS/2 ->6
-        <1> ex-rv2sv sK/1 ->4
3           <#> gvsv[*y] s ->4
-        <1> ex-rv2sv sKRM*/129 ->5
4           <#> gvsv[*x] s/LVINTRO ->5
-e syntax OK

##</code><code>##

Give local higher precedence
>perl -le"$x=2; { (local $x)=$x; print $x; $x=3; print $x } print $x"
2
3
2

Give assignment higher precedence
>perl -le"$x=2; { local ($x=$x); print $x; $x=3; print $x } print $x"
2
3
3   <-- XXX

##</code><code>##

>perl -le"local(${print('a'), 'x'}) = ${print('b'), 'x'};
b
a