# zum Summe Bilden use List::Util qw( sum ); ... my %summe; # in der Schleife zum Einlesen ... # Zaehle Anrufe pro Tag und Uhrzeit $summe{$datum}{$uhrzeit}++; ... Nach der Schleife # Gebe Summe pro Tag und Zeiten aus for my $datum ( keys %summe ) { my $tagessumme = sum( values %{$summe{$datum}} ); print "$datum:\n", "Total: $tagessumme\n"; print "$uhrzeit: $summe{$datum}{$uhrzeit}\n" for my $uhrzeit ( keys %{$summe{$datum}} ); print "\n"; }