use Data::Dumper;
local $Data::Dumper::Useqq = 1;
for my $key (sort keys %main::) {
    my $sym = ${"main::"}{$key};
    if (defined *{$sym}{SCALAR} and defined $$sym) {
        print Dumper [$key,$$sym];
    }
}'