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