for my $dia (sort keys %HoH) { print "
$dia:
"; for my $horarios (sort keys %{$HoH{$dia}}) { print "$horarios=>" . $HoH{$dia}->{$horarios} . "
"; } } print "VALUE:
"; print ${"2023-01-01"}{"00:00"};