Select Code to Download

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

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

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