Help for this page
foreach $uid (keys %{$systems{$sys}}){
@userids=keys %{$systems{$sys}}; foreach $uid (@userids){