Select Code to Download

use List::Util qw{ uniq };

%teamAcctsUniq = map {
    $_ => [ uniq(@{ $teamAccts{$_} }) ]
} keys %teamAccts;

@teamAcctsUniq{ keys %teamAccts } = map [uniq(@$_)], values %teamAccts
+;