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