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

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