my %seen;
my $num_unique_users =
    grep !$seen{ $HoH{$_}{user} }++,
    keys(%HOH);