perl -Mstrict -e 'no strict "refs"; my $x = 8; 
    my $xr = "x"; my $y = ${ $xr }; print "$y\n";'