my $x = 'Foo';

my $sub_ref = do {
    no strict 'refs';
    \&{$x};
};

##</code><code>##

my $x = 'Foo';

my $sub_ref = \&{$x};