Help for this page

Select Code to Download

Select or download this

use strict;

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

print $y;