Depending, of course, on what you ultimately want to do with this, you might want to look at Dumpvalue, which can dump the symbol tables of whole packages, or at another of the modules listed here.

For example,

package private;
our $my_scalar = 'my scalar';
our @my_array  = qw(my array);
our %my_hash   = ( my => 'hash' );

package main;
use strict;
use Devel::Symdump;
use Dumpvalue;

print "ARRAYS => "
    . join(q{, }, Devel::Symdump->arrays("private")),"\n";
print "SCALARS => "
    . join(q{, }, Devel::Symdump->scalars("private")),"\n";
print "HASHES => "
    . join(q{, }, Devel::Symdump->hashes("private")),"\n";

print "\nDumpvalue:\n";
Dumpvalue->new->dumpvars('private');
[download]

yields this output:

ARRAYS => private::my_array
SCALARS => private::my_scalar, private::my_array, private::my_hash
HASHES => private::my_hash

Dumpvalue:
@my_array = (
   0  'my'
   1  'array'
)
$my_scalar = 'my scalar'
%my_hash = (
   'my' => 'hash'
)
[download]

which lends itself to visual inspection.

Update: Added example.

HTH,