Help for this page
perl -MO=Deparse -e"$x='main::'; $y='x'; print *{${$x}{$y}}{SCALAR}"
$x = 'main::'; $y = 'x'; print *{${$x;}{$y};}{'SCALAR'}; -e syntax OK