Select Code to Download

$history{ $+{ ticket } }{ $entry->{ action } } = {
   date => $words[0],
...
      status
   ) }
};

sub kv { my $h = shift; $h->%{ grep exists( $h->{ $_ } ), @_ } }

kv( \%+, qw( ... ) )

$history{ $+{ ticket } }{ $entry->{ action } } = {
   date => $words[0],
...
      status
   )}
};

$history{ $+{ ticket } }{ $entry->{ action } } = {
   date => $words[0],
   time => $words[1],
   %+,
};