If you don't want strict refs, turn them off:

my $sub_name = 'this';
my $x = do { no strict 'refs'; \&$sub_name };
print $x->(), "\n";
sub this {
    return "hi";
}
[download]

Note that I kept the scope small in which I used the no strict "refs"; to prevent damage from unwanted symbolic dereferentition.