Does this convince you?

C:\>perl -MO=Concise,-ascii -e"package Foo;my $bar = 23;"
6  <@> leave[1 ref] vKP/REFC ->(end)
1     <0> enter ->2
2     <;> nextstate(Foo 1 -e:1) v ->3
5     <2> sassign vKS/2 ->6
3        <$> const[IV 23] s ->4
4        <0> padsv[$bar:1,2] sRM*/LVINTRO ->5
-e syntax OK

C:\>perl -MO=Concise,-ascii -e"package Foo;my Foo $bar = 23;"
6  <@> leave[1 ref] vKP/REFC ->(end)
1     <0> enter ->2
2     <;> nextstate(Foo 1 -e:1) v ->3
5     <2> sassign vKS/2 ->6
3        <$> const[IV 23] s ->4
4        <0> padsv[$bar:1,2] sRM*/LVINTRO ->5
-e syntax OK
[download]

Looks pretty convincing to me (there is no difference between the op trees, thus it is a null op).