use strict;
use warnings;
use 5.010;

sub Foo { 'in sub Foo' }

my $x = 'Foo';

my $sub_ref = \&{$x};
say $sub_ref->();
__END__
in sub Foo