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