foreach $uid (keys %{$systems{$sys}}){

##</code><code>##

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