$hr = {
         _orderid => '',
         _items   => [],
      };

##</code><code>##

sub set_items { push @{ $_[0]->{_items} }, $_[1]; }