deparse: my($c) = 3;

concise:
h     <2> aassign[t5] vKS ->i
-        <1> ex-list lK ->f
d           <0> pushmark s ->e
e           <$> const(IV 3) s ->f
-        <1> ex-list lK ->h
f           <0> pushmark s ->g
g           <0> padsv[$c:3,7] lPRM*/LVINTRO ->h