$main::test_variable = 23;
sub test_sub;
use constant test_constant => 23;
sub test_sub2() { 23 }

for my $var (sort keys %main::) {
    my $glob = $main::{$var};

    my $ref = ref $glob;
    my $refref = ref \$glob;
    my $deref = $ref eq 'SCALAR' ? $$glob : '-';

    say "var=$var glob=$glob ref=$ref refref=$refref deref=$deref";
}