#!/usr/bin/perl -slw

use strict;

my %count;
my(@dates) = (
    9.1.11, 
    9.2.11,
    9.3.11,
    9.4.11,
    9.5.11
);
foreach my $batch_dates (@dates) {
    ++$count{$_} foreach (@dates);
    sleep 1;
    print $count{$batch_dates};
}