my @date;
...
while (my $zeile = <$logfile>) {
    # Datum herausfiltern
    if ($zeile =~ /.../) {
        $datum = $1;      # so etwas wie "12/Dec/2007"
        if (@date == 0 || $date[-1] ne $datum) {  # @date leer oder neues Datum
            push @date, $datum;
        }
        ...
    }
}