my $x = 'Foo'; my $sub_ref = \&{$x};