DB<281> use strict; use warnings; $a=""; print exists &{$a}

  DB<282> sub foo {}; $a="foo"

  DB<283> use strict; use warnings; print exists &{$a}
1
  DB<284>