#!/usr/bin/perl 

use strict;
use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrowser);

print header();


#######test 1 

my @dates = qw(02/01/2009 
               01/31/2009 
               01/01/2009 
               01/31/2009 
               02/20/2009 
               02/20/2009 
               02/20/2009 
               02/20/2009 
               02/01/2009
);

my %count = ();

my $c=0;
foreach my $date (@dates)
{
 $c++;
 $count{$date}++;
 print "<font size=1>$c</font> - $count{$date} - $date<br>\n";
} 

##</code><code>##

4 times 02/20/2009
2 times 02/01/2009
2 times 01/31/2009
1 times 01/01/2009