$ perl -MO=Deparse -Mstrict -e '(do "foo")->{bar};'
use strict;
+(do 'foo')->{'bar'};
-e syntax OK