@HoH{keys %hash} = values %hash

##</code><code>##

$HoH{$unit_num} = $hash{$unit_num};

##</code><code>##

  %hash = (
             $unit_num => {
                $event_nm => [ $event_date ],
   },
  );

  @HoH{keys %hash} = values %hash 

##</code><code>##

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

##</code><code>##

  $HoH{$unit_num}            ||= {};
  $HoH{$unit_num}{$event_nm} ||= [];
  push @{ $HoH{$unit_num}{$event_nm} }, $event_date;

##</code><code>##

print Dumper( \%HoH );