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