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