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";
          }
}