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"};