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