in reply to Unique Values within AOH

Use uniq from List::Util:
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 +;
map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]