perl -Mstrict -le 'no strict "refs";use vars qw($x $xr $y);
    $x = 8;$xr = "x"; $y = $$xr; print $y;'