If you want to do something strict is deliberately trying to prevent, you should turn off the stricture in question in a limited scope. This helps document that you are breaking your self-imposed rules.

But either of the following will in fact work (the second only under some conditions):

my $x=sub{goto &$ref}->();
[download]

or

my $x=&{$::{$ref}}();
[download]