$ perl -MO=Concise -e 'eval ($foo)->{bar};'

8  <@> leave[1 ref] vKP/REFC ->(end)
1     <0> enter ->2
2     <;> nextstate(main 1 -e:1) v:{ ->3
7     <2> helem vK/2 ->8
5        <1> rv2hv[t2] sKR/1 ->6
4           <1> entereval[t256] sK/1 ->5
-              <1> ex-rv2sv sK/1 ->4
3                 <#> gvsv[*foo] s ->4
6        <$> const[PV "bar"] s/BARE ->7
-e syntax OK

$ perl -MO=Concise -e 'do ($foo)->{bar};'

9  <@> leave[1 ref] vKP/REFC ->(end)
1     <0> enter ->2
2     <;> nextstate(main 1 -e:1) v:{ ->3
8     <1> dofile vK/1 ->9
7        <2> helem sK/2 ->8
5           <1> rv2hv[t2] sKR/1 ->6
4              <1> rv2sv sKPM/DREFHV,1 ->5
3                 <#> gv[*foo] s ->4
6           <$> const[PV "bar"] s/BARE ->7
-e syntax OK


##</code><code>##

$ perl -MO=Deparse -e '(eval $foo)->{bar};'
eval($foo)->{'bar'};

##</code><code>##

(eval($foo))->{'bar'};