my %date_count; foreach my $time ( @times ) { $date_count{ ( $time / 3600 ) * 3600 }++; }