P:\test>perl -we"print %h = (1,1,1,1);"
Name "main::h" used only once: possible typo at -e line 1.
Use of uninitialized value in print at -e line 1.
111
P:\test>perl -MO=Concise -we"print %h = (1,1,1,1);"
Name "main::h" used only once: possible typo at -e line 1.
e  <@> leave[t1] vKP/REFC ->(end)
1     <0> enter ->2
2     <;> nextstate(main 1 -e:1) v ->3
d     <@> print vK ->e
3        <0> pushmark s ->4
c        <2> aassign[t3] lKS ->d
-           <1> ex-list lKP ->9
4              <0> pushmark s ->5
5              <$> const(SPECIAL Null)[t4] s ->6
6              <$> const(SPECIAL Null)[t5] s ->7
7              <$> const(SPECIAL Null)[t6] s ->8
8              <$> const(SPECIAL Null)[t7] s ->9
-           <1> ex-list lK ->c
9              <0> pushmark s ->a
b              <1> rv2hv[t2] lKRM*/1 ->c
a                 <#> gv s ->b
-e syntax OK