Please, I must get the $HoH values, could you help me?

 
for my $dia (sort keys %HoH){
        print "<br>$dia: <br>";
        for my $horarios (sort keys %{$HoH {$dia}}){
                print "$horarios=>" . $HoH{$dia}->{$horarios} . "<br>"
+;
        }
}

print "VALUE:<br>";
print ${"2023-01-01"}{"00:00"};  #I couldn't see the value
[download]

Please, will you help me to find the error? Thanks a lot. Regards.