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

for my $symname (sort keys %main::) {
    local *sym = $main::{$symname};
    say "\@$symname array is populated" if @{ *sym }; # <-- HERE
    say "\%$symname hash  is populated" if %{ *sym }; # <-- and HERE
}