$unique_ids = scalar(grep {defined $_} @normal_array);

##</code><code>##

foreach (sort keys %HoA) {
    say "$_: ", join ",", uniq @{ $HoA{$_} };
}

##</code><code>##

flintstones: fred,barney,nick,john
jetsons: george,jane,elroy,mike,elias
simpsons: homer,marge,bart,jack