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