~home>perl -MO=Concise, -ce '$z = (time ? @x=() : $x) = 365'
e  <@> leave[1 ref] vKP/REFC ->(end)
1     <0> enter ->2
2     <;> nextstate(main 1 -e:1) v:{ ->3
d     <2> sassign vKS/2 ->e
b        <2> sassign sKS/2 ->c
3           <$> const(IV 365) s ->4
-           <1> null sKPRM*/1 ->b
5              <|> cond_expr(other->6) sKRM*/1 ->f
4                 <0> time[t1] s ->5
a                 <2> aassign[t3] sKRMS* ->b
-                    <1> ex-list lK ->7
6                       <0> pushmark s ->7
-                       <0> stub lP ->-
-                    <1> ex-list lK ->a
7                       <0> pushmark s ->8
9                       <1> rv2av[t2] lKRM*/1 ->a
8                          <$> gv(*x) s ->9
-                 <1> ex-rv2sv sKRM*/1 ->-
f                    <$> gvsv(*x) s ->b
-        <1> ex-rv2sv sKRM*/1 ->d
c           <$> gvsv(*z) s ->d
-e syntax OK