my @Date = ();
my %State = ();
my $old_date = '';

while (<DATA>) {
        my ($date, $state, $duration) = split;
        if ($date ne $old_date) {
                push @Date, $date;
        }
        $old_date = $date;
}