$SUB = "1Foo";
*$SUB = sub {print "$SUB!\n"};
&{"1Foo"};
__END__
1Foo!