my $name = "foo*bar";

*$name = sub {
   return 42;
};

print &$name(), "\n";