#!/usr/bin/env perl

use strict;
use warnings;

use Data::Dumper;

my @times = qw(1000 1000 1000 1010 1010 1010);
             
my %data;

foreach my $key (@times) {
    $data{$key}++;
}

print Dumper(\%data);