>perl -le"$x='Foo::var'; ${$x}='abc'; print $Foo::var;"
abc