deparse: my($d, $e) = (4, 5);

concise:
p     <2> aassign[t8] vKS ->q
-        <1> ex-list lKP ->m
j           <0> pushmark s ->k
k           <$> const(IV 4) s ->l
l           <$> const(IV 5) s ->m
-        <1> ex-list lKPRM*/128 ->p
m           <0> pushmark sRM*/128 ->n
n           <0> padsv[$d:4,7] lRM*/LVINTRO ->o
o           <0> padsv[$e:4,7] lRM*/LVINTRO ->p