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