sub dispSymbols {
    my($hashRef) = shift;
    my(%symbols);
    my(@symbols);

    %symbols = %{$hashRef};
    @symbols = sort(keys(%symbols));

    foreach (@symbols) {
     print Dumper   printf("%-10.10s| %s\n", $_, $symbols{$_});
    }
}

dispSymbols(\%PackageName::);