% stephan@armen (/home/stephan) % % perl -we ' *{"11abc"} = sub { print q[ok] }; *{"11abc"}{CODE}->()' ok % stephan@armen (/home/stephan) % % perl -we ' *{"11abc"} = sub { print q[ok] }; &{*{"11abc"}}()' ok