Select Code to Download

%hash = (
             $unit_num => {
...
  );

@HoH{keys %hash} = values %hash

push @{$HoH{$unit_num}{$event_nm}}, $event_date;