for my $datum (sort keys %days){ #Reihenfolge der Keys des Hash's '%tage' nach Datumseinrägen sortieren print "$datum\t($tage{$datum})\n"; #sortierte Ausgabe des Hash's %tage } print "\nWelches Datum auswerten? (Nr. eingeben): "; #Eingabeaufforderung f. Auswahl