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