C:\>perl -MO=Deparse,-p -e"my @fo = @bar;"
(my(@fo) = @bar);
-e syntax OK

C:\>perl -MO=Deparse,-p -e"my(@fo) = @bar;"
(my(@fo) = @bar);
-e syntax OK

C:\>perl -MO=Deparse,-p -e"my $f = { a => 1 };"
(my $f = {'a', 1});
-e syntax OK

C:\>perl -MO=Deparse,-p -e"my $f = { "a" => 1 };"
(my $f = {'a', 1});
-e syntax OK