@userids=keys %{$systems{$sys}}; foreach $uid (@userids){