$Foo::a=$Foo::a;  # using $Foo::a twice will silence the 'used only once' warning