#!/usr/bin/perl
use strict;
use warnings;
use 5.10.0;
use Archive::Zip qw(:ERROR_CODES :CONSTANTS);
use Data::Dumper;

for my $var (sort {lc $a cmp lc $b} keys %main::) {
    my $glob = $main::{$var};
    if (ref \$glob ne 'GLOB') {
        my $ref = ref \$glob;
        say "$glob: ref=$ref";
        say "$var: $glob: ref=$ref";
        if (ref \$glob eq "SCALAR") { say $$glob }
    }
	my $name = (ref \$glob ne 'GLOB' ? $var : *$glob{NAME});
	$name =~ s/([\x00-\x1f\x7f])/'^'.($1^'@')/eg;
	if ($name !~ /::$/) {
		do {
			my $ref = *$glob{SCALAR};
			print Data::Dumper->Dump([ $$ref ], [ $name ]) if (defined $$ref);
		};
	}
}