deparse: my($a) = 1;

concise:
7     <2> aassign[t2] vKS ->8
-        <1> ex-list lK ->5
3           <0> pushmark s ->4
4           <$> const(IV 1) s ->5
-        <1> ex-list lK ->7
5           <0> pushmark s ->6
6           <0> padsv[$a:1,7] lPRM*/LVINTRO ->7