use strict;

my $x  = 8;
my $xr = "x";
my $y  = eval "\$$xr";

print $y;