in reply to Unique Values within AOH
use List::Util qw{ uniq }; %teamAcctsUniq = map { $_ => [ uniq(@{ $teamAccts{$_} }) ] } keys %teamAccts;
Or you can assign the whole hash at once:
@teamAcctsUniq{ keys %teamAccts } = map [uniq(@$_)], values %teamAccts +;
|
|---|