foreach (keys %CustomerUserList) {
  my %User = $CommonObject{CustomerUserObject}->CustomerUserDataGet(User => $_);
  $CustomerUserList{$_} = \%User;
}