use strict;
use warnings;

my %before = %main::;
bless {},'nonexistent';
my %after = %main::;

foreach my $symbol (sort keys %after) {
    next if exists $before{$symbol}; 

    local *myglob = $after{$symbol};
    if ( defined *myglob{HASH} ) {
        my %val = %{ *myglob{HASH} };
        print "HASH \%$symbol = ( ";
        while(  my ($key, $val) = each %val )  {
            print "$key=>'$val', ";
        }
        print ")\n" ;
    }
}

__END__

HASH %nonexistent:: = ( AUTOLOAD=>'*nonexistent::AUTOLOAD', )