foreach my $entry (sort values %:: )
    {
        print "*" x 10, "Name: $entry Type: ";
        print "scalar is defined\t" if defined ${$entry};
        print "array  is defined\t" if defined @{$entry};
        print "hash   is defined\t" if defined %{$entry};
        print "sub    is defined\t" if defined &{$entry};
        print "\n";
    }