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