push(
    @{$ref2array},
    map { uc($_) } ( sort( keys( %{$obj->things()} ) ) )
  );