foreach my $uid(keys %$userids){
        next if $uid eq "";
        if(!defined $userdata{$uid}){
                 my $entry = $conn->search($base,"sub","uid=$uid",0,@attrs);
                 while($entry){
                       $userdata{$uid}{displayname}=$entry->{displayname}[0];
                       $userdata{$uid}{departmentname}=$entry->{departmentname}[0];

                       print "\nuid=$uid name=$userdata{$uid}{displayname}";
                       $entry=$conn->nextEntry();
                 }
          }

          my @tmproles=@{$systems{$sys}{$uid}};

line 115=> foreach my $role(@tmproles){
                  print UR "$uid\t$role\t" . $userdata{$uid}{displayname} . "\t" . $userdata{$uid}{departm
entname} . "\n";
                  print BR "$uid\t" . $role . "\n";
          }
}

##</code><code>##

uid=u688491 name=Fergus
uid=u707089 name=Paul
uid=u859196 name=Mark
uid=u103752 name=Neville
Use of freed value in iteration at ./pwReconcileSysUsers.pl line 115.
uid=u678861 name=Afzalsmpd328:/ze/pathway/ed/pathway/cgi-bin