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