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

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 }
    }
}