foreach my $s_key (sort keys %h_key_act){
   print "Datum: $s_key - Wert: $h_key_all{$s_key} <\n";
}