my  $main::FOO;
print join("\n",sort(keys(%main::)) );