$history{ $+{ ticket } }{ $entry->{ action } } = {
   date => $words[0],
   time => $words[1],
   (\%+)->%{ grep exists( $+{ $_ } ), qw(
      order
      invoice
      shipment
      scheduled_date
      status
   ) }
};