$ref = eval "\\\$$name";

##</code><code>##

#! perl -w
use strict;
my $ref;
my $name = 'x';
our $x;
$x = 'global';
$ref = eval "\\\$$name"; print "\$$name = '$$ref'\n";
{
    my $x = 'lexical';
    $ref = eval "\\\$$name"; print "\$$name = '$$ref'\n";
    {
        my $x = 'nested lexical';
        $ref = eval "\\\$$name"; print "\$$name = '$$ref'\n";
    }
}

##</code><code>##

$x = 'global'
$x = 'lexical'
$x = 'nested lexical'