##
$SUB = "1Foo";
*$SUB = sub {print "$SUB!\n"};
1Foo();
Bareword found where operator expected at -e line 3, near "1Foo"
(Missing operator before Foo?)
##
##
$SUB = "1Foo";
*$SUB = sub {print "$SUB!\n"};
&{"1Foo"};
__END__
1Foo!