sub add2array {
   my $ref2array = shift;
   my $obj = new THING;

   for my $thing ( sort keys $obj->things ) {
      push ( @{$ref2array} $thing );
   }
}

##</code><code>##

$ref2array = map { push @{$_} } sort keys $obj->things;