&dumpvar(substr($package,1)) unless $package eq "

&dumpvar('main', 'foo', 'bar', '@', '_');

foreach $package (grep(/^_\w+$/, keys(%_main))) {
print "\nPACKAGE = $package\n";
&dumpvar(substr($package,1)) unless $package eq "_dumpvar";
}