use strict;
use warnings;
use feature 'say';

for my $symname (sort keys %main::) {
    local *sym = $main::{$symname};

    # Make a copy of the symtab entry

    if (@{ *sym }) {
        my @array = @{ *sym };
        print "$_\n" for @array;
    }

    # Use the symtab entry directly

    if (%{ *sym }) {
        for my $key (keys %{ *sym }) {
            print "$key: ${ *sym }{$key}\n";
        }
    }
}