use vars qw< $x >;
$x= 'glo';
{
    my $x= 'lex';
    my $y= 'x';
    print $$y;          # 'glo'
    print eval '$'.$y;  # 'lex'
}