for my $item (@{$p}) {
    if ('HASH' eq ref $item) {
        for my $key (qw(account ZIP CITY)) {
            print $item->{$key} , "\n" if exists $item->{$key};
        }
    } elsif ('ARRAY' eq ref $item) {
        for my $inner (@$item) {
            for my $key (qw(order suggested cd)) {
                print "\t", $inner->{$key} , "\n" if exists $inner->{$key};
            }
        }
    }
}