Select Code to Download

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

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