DB<28> sub EXPR { print "executed" }

  DB<29> "  $hash{ EXPR() }  "
executed

  DB<30> ${test}_bar
Bareword found where operator expected at ...