perl -MO=Deparse -e"$x='main::'; $y='x'; print *{${$x}{$y}}{SCALAR}"