foreach my $line (@file)
{
	my @fields = split(/,/, $line);
	if ($fields[6] !~ /\d{2}\/\d{2}\/\d{4}/)
	{
		@tempdate = split(/\//, $fields[6]);
		if ($tempdate[0] < 10)
		{
			$newdate = "0" . $tempdate[0] . "/";
		}
		else
		{
			$newdate = $tempdate[0] . "/";
		}
		if ($tempdate[1] < 10)
		{
			$newdate = $newdate . "0" . $tempdate[1] . "/";
		}
		else
		{
			$newdate = $newdate . $tempdate[1] . "/";
		}
		$fields[6] = $newdate . $tempdate[2];
	}
	$datecount{$fields[6]}++;
}
foreach my $date (sort(keys(%datecount)))
{
	print "\n", $date, ": ", $datecount{$date};
}