use strict;

my $ref="this";
my $x;
{
  no strict 'refs';
  $x=&$ref();
}
print "$x\n";
sub this {return "hi!"}